
fflSLf 


mmsMÊam 

■ m/a^oísiSMían 

- 7(1 ■ dl W Unha wiH«5 loUtM I 

- sas.« jfS7£txr' • * 


Traçddo dd curvas 


Aumente a memória livre 
de seu computador pessoal 


kiição 
e erro 


.ocalizáção e 
automaticas 


Dnizador 

imagerrv 


poderoso sincn 
de som e 


71 * 
c 


c>S< 

S a 





























A segunda 
memória do seu 
computador: 
gravador National 
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O gravador 
National RQ-2222 
é o preferido 
pelos usuários de micro¬ 
computadores. Ele grava e 
carrega programas com 
a mais alta fidelidade e com 
a maior economia. 


Porque tem um sistema de 
cabeçote próprio para 
o uso em micros. O gravador 
National RQ-2222 tem um 
contador de fita que facilita 
a localização do programa a 
ser utilizado. E tem também 
um comando único para 
gravação tipo “Um Toque”, 
muito mais prático. Um 
gravador que vive na memó¬ 
ria do computador merece 
também viver na sua. 

Grave este nome: National 
RQ-2222. 


National 


Broduzido na Zona Franca de Manaus. Conheça o Amazonas. 




National 
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CP 400 Color: um novo pa¬ 
drão de mercado, com tecla¬ 
do profissional e mais de mu 
softwares disponíveis no 
mercado. Páginas 4 e 5. 
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CURSOS 



Senac Informática — Oferece os 
seguintes cursos para setembro e 
outubro: Introdução à Informáti¬ 
ca: de 24 de setembro a 10 de ou¬ 
tubro, das 14 às 17 horas. Preço: 
Cr$ 396.000,00. Basic Sinclair: de 
23 de setembro a 11 de outubro. Pre¬ 
ço: Cr$ 279.000,00. Basic I: de 14 
de setembro a 16 de novembro. Pre¬ 
ço: Cr$ 692.000,00. AssembIerZ-80: 
de 28 de setembro a 16 de novem¬ 
bro. Preço: Cr$ 544.000,00. Assem- 
bler 6502: de 28 de setembro a 16 de 
novembro. Preço: Cr$ 988.000,00. 
Supercalc II : de 21 de setembro a 26 
de outubro. Preço: Cr$ 741.000,00. 
Wordstar PC: de 25 de setembro a 4 
de outubro. Preço: Cr$ 1.235.000,00. 
Maiores informações: Rua Dr. Vila 
Nova, 228 — 5? andar — São Paulo 
— telefone: (011)256-5522. 


Indicadores de Quaíidade em Com¬ 
putação para o Diálogo dos Usuários 
com os Profissionais de Computa¬ 
ção — Curso dirigido a empresários, 
executivos e profissionais liberais. 
Locais: Porto Alegre, dias 21 e22de 
novembro, e Belo Horizonte, dias 3 
e 4 de outubro. Maiores informa¬ 
ções: CQA — Computer Quality As- 
surance — Rua Tabapuã, 627 — 
conjunto 62 — São Paulo — telefo¬ 
ne: (011) 280-5648 e 852-7513. 

Lotus 1-2-3 — Data: de 2 a 6 de outu¬ 
bro ou de 11 a 13 de outubro. Local: 
Servimec — Rua Corrêa dos Santos, 
34 — Bom Retiro — São Paulo — 
telefone: (011) 222-1511. 

dBase II — Data: de 16 a 20 de outu¬ 
bro ou de 25 a 27 de outubro. Local: 



Informática no Brasil 

Sou estudante de Comunicação da 
Universidade Federal de Goiás e gosta¬ 
ria de contar com a ajuda da Geração 
Prológica em um trabalho que estou de¬ 
senvolvendo sobre a informática no 
Brasil. Já que esta revista é uma das 
mais atuais e apresenta ótimas matérias 
sobre o assunto, gostaria de uma ajuda 
para a realização de meu trabalho. Es¬ 
tou à procura de todo tipo de documen¬ 
tação que trate sobre a informática no 
Brasil, desde seu início atç os mais re¬ 
centes progressos, relação de empresas, 
datas, órgãos, leis e mercados. Espero 
poder contar com sua ajuda. 

Adélcio Alves da Silva Júnior — 
Goiânia — GO 

Caro amigo Adélck). agradecemos os 
elogios e sugerimos que você entre em 
contato com duas entidades muito im¬ 
portantes para a área de informática: a 
Secretaria Especial de Informática 


(SEI) e a Associação Brasileira da In¬ 
dústria de Computadores e Periféricos 
(Abicomp), que poderão ajudá-lo na 
elaboração de uma boa monografia so¬ 
bre o setor. Mas, para iniciar seu tra¬ 
balho, estamos enviando, via correio, 
vários documentos de seu interesse, co¬ 
mo: Catálogo da Indústria Brasileira de 
Informática, da Abicomp, e um relató¬ 
rio atual sobre a participação no mer¬ 
cado e descrição de produtos do grupo 
Prológica. Sugerimos também que vo¬ 
cê leia o livro Computador Faz Políti¬ 
ca, de Gilberto Paim. Este livro pode 
ser encontrado na APEC — Associação 
Promotora de Estudos de Economia —, 
Rua Sorocaba, 295 — CEP 22.271 — 
Rio de Janeiro. O endereço da SEI é: 
SAS — Quadra 5 — Lote 6 — Bloco H 
— Brasília. Esperamos que estas infor¬ 
mações sejam suficientes para o início 
de seu trabalho. 


ProCalc 

Gostaria de receber informações so¬ 
bre o programa ProCalc e onde posso 
encontrar programas para Vigas Con¬ 
tínuas e Lages. Outra dúvida: drive fa¬ 
ce dupla aceita programas para face 
simples? 

Paulo Roberto Lemos — Maceió — AL 
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Servimec — Rua Corrêa dos Santos, 
34 — Bom Retiro — São Paulo — 
telefone: (011) 222-1511. 

dBase III — Data: de 18 a 20 de ou¬ 
tubro ou de 23 a 27 de outubro. Lo¬ 
cal: Servimec — Rua Corrêa dos 
Santos, 34 — Bom Retiro — São 
Paulo — telefone: (011) 222-1511. 

Análise Estruturada para Sistemas 
com Bpnco de Dados — Data: 15 a 
18 de outubro. Maiores informa¬ 
ções: SCI — Sistemas, Computação 
e Informática — Rua Jardim Botâ¬ 
nico, 635 — 8? andar — Rio de Ja¬ 
neiro — telefone: (021) 294-7438 e 
Avenida Paulista, 949 — 11? andar 
— São Paulo — telefone: (011) 
289-0099. 


Caro Paulo, o ProCalc é um progra¬ 
ma destinado à execução de cálculos so¬ 
bre um planilha eletrônica, armazena¬ 
da na memória do CP 500. Nesta pla¬ 
nilha, você pode anotar valores (que po¬ 
dem ser variáveis, tais como: tempo, ta¬ 
xa, ou fórmulas que são funções destas 
variáveis), ou mesmo rótulos que ser¬ 
vem para identificar os valores anota¬ 
dos. Você utiliza o ProCalc exatamen¬ 
te como utilizaria uma calculadora, mas 
a planilha tem a vantagem de poder ar¬ 
mazenar todas as fórmulas utilizadas e, 
assim que uma variável for alterada, to¬ 
dos os valores são automaticamente re¬ 
calculados. 

Quanto aos programas para Vigas 
Contínuas e Lages, você poderá adqui¬ 
ri-los nas seguintes software houses: 
Terracomp — Sistemas e Consultoria 
Rua da Assembléia, 93/801 — Rio de 
Janeiro — RJ. 

Eng Computadores Ltda. 

Avenida dos Tajuras, 406 — CEP 05670 
— São Paulo — SP — telefone: (011) 
813-7570. 

Siviero Engenharia de Projetos 

R. Sena Madureira, 513 — São Paulo — SP 

Informamos também que drive face 
dupla aceita programas para drive face 
simples. No entanto, o contrário não é 
verdadeiro. 


Gerenciamento Profissional de Pro¬ 
cessamento de Dados — O Desafio 
dos Anos 80 — Data: de 2 a 4 de ou¬ 
tubro. Maiores informações: SCI — 
Sistemas, Computação e Informáti¬ 
ca — Rua Jardim Botânico, 635 — 
11 ? andar — Rio de Janeiro — tele¬ 
fone: (021) 294-9292 e Avenida Pau¬ 
lista, 949 -— 11? andar —• São Paulo 
— telefone: (011) 289-0099. 

Teleprocessamento em Redes de 
Computadores — Data: de 23 a 25 de 
outubro. Preço: 60 ORTN*s. Maio¬ 
res informações: IBPI — Instituto 
Brasileiro de Pesquisa em Informáti¬ 
ca — Rua Mena Barreto, 77 — Rio 
de Janeiro — telefone: (021) 286-6891. 



Microprocessador 6809 

Quando comprei o meu CP 400 Co¬ 
lor, fiquei preocupado com a falta de 
programas existente no mercado. Mas, 
depois que fiz assinatura da revista Ge¬ 
ração Prológica , percebi o quanto este 
computador poderia ser útil nas minhas 
atividades, pois vocês me mostraram, 
com ótimas matérias e “dicas”, como 
melhor utilizar meu CP 400. Por isso, 
parabenizo a revista pelo apoio dado a 
nós, usuários. Conforme indicação da 
“Agenda”, estou fazendo um curso de 
informática, por isso peço, mais uma 
vez, ajuda a vocês: estou interessado em 
saber os modos de endereçamento do 
microprocessador 6809, é possível? Ou¬ 
tra dúvida: posso utilizar o CP 400 com 
a impressora P 500? 

Rodrigo Lambert Brasil — 
Rio de Janeiro — RJ 

Caro Rodrigo, ficamos contentes por 
nosso trabalho ter alcançado seu prin¬ 
cipal objetivo: informar e dar'suporte 
adequado a nossos leitores. Quanto aos 
modos de endereçamento do micropro¬ 
cessador 6809, eles podem ser: 


1. Modo Intrínseco ou Inerente, onde o 
código da instrução contém todas as in¬ 
formações necessárias à sua execução. 

2. Modo Imediato, onde o endereço 
efetivo dos dados é aquele imediata¬ 
mente pôsterior ao código de operação. 

3. Modo Extendido Direto, onde o en¬ 
dereço do dado é especificado pelos dois 
bytes subseqüentes ao código de ope¬ 
ração. 

4. Modo Extendido Indireto. Esse é um 
caso especial do endereçamento indexa¬ 
do. Exemplo: LDA [Ll] 

LDX [$FFFE] 

STU [L2] 

5. Modo Direto. Esse modo é similar ao 
modo extendido, exceto que somente 
um byte do endereço segue o código de 
operação. Esse byte especifica a meta¬ 
de menos significativa do endereçamen¬ 
to. Os outros oito bits do endereçamen¬ 
to são conseguidos através do registra¬ 
dor DP. 

6. Modo de Endereçamento por Regis¬ 
trador. Alguns códigos de operação são 
seguidos por um byte que define um re¬ 
gistrador ou alguns registradores que se¬ 
rão usados pela instrução. 

7. Modo Indexado. Em todos os ende¬ 
reçamentos indexados, um dos registra¬ 
dores de apontamento (X, Y, S, U e al¬ 
gumas vezes o próprio PC) é usado no 

| cálculo do endereço efetivo do ope¬ 
rando. 

Quanto à utilização do CP 400 com 
a impressora P 500, veja matéria, neste 
número, na página 9. 


ERRATA. 


No programa “Pegalogo”, publicado 
na Geração Prológica n.° 11, as linhas 
770, 780, 790, 800 e 810 devem ser cor¬ 
rigidas para: 

770 PRINT@15*32,“CONTINUAR (S/N) 

? 

780 A$ = INKEY$:IF A$ = THEN GOTO 
780 

790 IF A$ = “N” THEN CLS: END 
800 IF A$ = “S” THEN RUN 
810 GOTO 780 


Lt <ta. _ D fcd «o r a 
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COLOR II 


UM NOVO 

PADRÃO 
DE MERCADO 


A CP Computadores Pessoais está 
realizando uma revolução na área de 
microcomputadores, visando a forma¬ 
ção de um novo padrão de mercado, 
sendo que sua principal arma é o CP 400 
Color II. Para tanto, está seíido inexo¬ 
rável no desenvolvimento desta máqui¬ 
na: novo teclado profissional, com capa¬ 
cidade superior a 10 milhões de toques 
por tecla; microprocessador 6809E, 
com estrutura interna de 16 bits; con¬ 
solidação mercadológica através do de¬ 
senvolvimento e recenseamento de mais 
de mil softwares; estrutura para supor¬ 
te à comunidade de usuários e protoco¬ 
los de comunicação para todos os ban¬ 
cos de dados. Estas possibilidades tec¬ 
nológicas resultam, principalmente, na 
democratização do computador: o CP 
400 Color II assume seu papel de do¬ 
méstico avançado e profissional univer¬ 
salizando ainformática e transforman¬ 
do-a numa ferramenta extremamente 
poderosa, a serviço de todos os indiví¬ 
duos, devido a sua versátil performan¬ 
ce modular e econômica relação cus¬ 
to/benefício. 

Com um ano de lançamento e um 
parquesuperior a25 mil máquinas insta¬ 
ladas, o CP 400 amadureceu e consoli¬ 
dou-se no mercado. Mas a importância 
deste equipamento é que ele não pára 


em suas primeiras especificações: além 
de acompanhar a tendência profissio¬ 
nalizante do mercado (por isso, o novo 
teclado), a CP Computadores Pessoais 
tem se preocupado em capacitar esta 
máquina para uma efetiva informatiza¬ 
ção da sociedade. 

Hoje, com uma biblioteca disponível 
em todo o Brasil de mais de mil softwa¬ 
res (entre utilitários, aplicativos e jo¬ 
gos), o CP 400 possibilita sua utiliza¬ 


ção em qualquer setor, com programas 
que vão desde simuladores de vôos até 
planilhas de cálculos de última gera¬ 
ção, com capacidade de gerar gráficos 
(similares ao Lotus 1-2-3), podendo 
ainda rodar sistemas operacionais tão 
sofisticados em características quanto 
o poderoso Unix. 

Mas isso só não basta para a geração 
das informações: a CP Computadores 
Pessoais também desenvolveu protoco- 


Características técnicas do CP 400 Color II 
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SOFTWARE 



lo de comunicação para acesso ao ban¬ 
co de dados Cirandão, sendo que o do 
Videotexto estará disponível para os 
usuários até o final de 1985. 

Apesar de todo desenvolvimen¬ 
to tecnológico, o CP 400 Color II não 
perdeu o charme do design moderno, 
criado por Luciano Deviá. Ao contrá¬ 
rio: o teclado ganhou sobriedade pós- 
modernista com suas novas teclas pro¬ 
fissionais. 


A CP Computadores Pessoais realizou um recenseamento, 
em todo o Brasil, selecionando mais de mil softwares 
compatíveis com o CP 400 Color II. Esta seleção será 
distribuída, em breve, para todos os usuários nos 
revendedores CPs. Neste número, a Geração Prológica 
publica listagem de alguns softwares profissionais e o 
endereço das software houses responsáveis: 


Programa Software House 

Mala Direta (16 

Kb — fita).Medicai Color Soft 

Banco de Da¬ 
dos para Pro¬ 
fessores (32 Kb 

— disco).Medicai Color Soft 

Sistema de Con¬ 
trole de Clínica 
(32 Kb — disco 

e fita).Medicai Color Soft 

Processador de 
Textos com 
Acentuação 
em Português 

(fita).Peek & Poke 

Agenda Finan¬ 
ceira (32 Kb — 

disco e fita)... Medicai Color Soft 
Imposto de Ren¬ 
da (32 Kb — dis¬ 
co) .Medicai Color Soft 

Processamento 
de Textos para 
OS-9 DOS (64 

Kb — disco)... Medicai Color Soft 
Banco de Da¬ 
dos (32 Kb — 

disco). Medicai Color Soft 

Planilha Eletrô¬ 
nica (disco).... Micromaq 
Controle de 
Conta Bancá¬ 
ria .Computer House 


Programa Software House 

Contas a Pa¬ 
gar/Receber ... Planecon Informática 
Editor de Tex¬ 
tos . Kristian Eletrônica 

Planilha de Cál¬ 
culo .Peek & Poke 


Endereços das Software Houses 


Computer House — Avenida Andra¬ 
de Neves, 1254 — Campinas — SP 

— telefone: (0192) 8-0822 
Kristian Eletrônica — Rua Gonzaga 
Bastos, 112 — Rio de Janeiro — RJ 

— telefone: (021) 268-8249 
Logaritmo Serviços — Rua Dr. Afon¬ 
so Pena, 219 — Porto Alegre —■ RS 

— telefone: (0512) 23-2655 
Medicai Color Soft — Rua Cícero 
Goes Monteiro, 15 — Rio de Janeiro 

— RJ — telefone: (021) 266-5995 
Microidéia — Avenida Passos, 101 

— 11.° andar — Rio de Janeiro — RJ 

— telefone: (021) 233-3617 
Micromaq — Rua Sete de Setembro, 
92 — loja 106 — Rio de Janeiro — RJ 

— telefone: (021) 222-6088 

Peek & Poke — Avenida Brigadeiro 
Faria Lima, 1664 — conj. 1101 — São 
Paulo — SP — telefone: (011) 
813-3277 

Planecon Informática — Avenida 
Água Fria, 925 — São Paulo — SP — 
telefone: (011)204-2777 



Entradas e Saídas 


Características do Teclado 


• Duas saídas para joysticks analógicos 

• Uma porta serial, através de plugue DIN, para conexão de impressoras, 
modems, ou qualquer outro periférico que necessite este tipo de sinal 

•Uma porta para gravador cassete com controle automático de motor 

• Uma saída, através de plugue DIN, para monitor de vídeo composto P&B 
ou colorido 

• Entrada e saída de dados (DATA BUS), para cartuchos e controlador de 
disquetes 

• Uma saída de RF com Áudio para ligação do CP 400 Color II a um apare¬ 
lho de TV P&B ou colorido 

• Chave de seleção de canais de RF (canal 3 ou 4) 

• Fonte de alimentação 110/220 V 


Teclado profissional com 59 teclas tipo ASCII, com capacidade superior a 
10 milhões de toques por tecla. 
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O CLUBE CP’s está superando todas as expectativas 

JnJcJãJs, na Trwdjdã em quê esta gerando um grãndê 

JntêrcàmNõ dê Jnfõrmãçõês êntrê os usuWfíõs. No~êntãntõ, ~ 

o mais importante neste intercâmbio é o nível das ~ 

Tnfõrmãçõês: cãdã vêz TnãJs õs üsUaríõs dê cõmpütãdõrês 

pêssõãJs êstaõ mdõ ãiém do inevitável, solucionando 

prõUiernãs ê sêíêclõnãndõ TêcüTsõs pãrã necessidades êspêcitícãs. 

Nêstê núrnêrõ, pUbUcãmõs ãs Tnfõrmãçõês e programas 

enviados por João Dreys, engenheiro eletricista do ff/o de Janeiro. 


TRAÇADO GRÁFICO 


O traçado de curvas que podem ser 
representadas por equações caracterís¬ 
ticas de suas formas é uma das mais sim¬ 
ples entre as múltiplas aplicações do mi¬ 
crocomputador na área científica. Mas, 
apesar da aparente complexidade, o tra¬ 
çado de curvas no CP 400 é muito sim¬ 
ples, tornando-se mesmo genérica sua 
metodologia. 

No Quadro I, acham-se relacionados 
34 programas para traçado de curvas, 
com o respectivo “código” (sugerido no 
caso de gravação em fita, além das res¬ 
pectivas equações). Deve ser observa¬ 
do que, ao serem lançadas as equações 
das curvas nos respectivos programas, 
já foram atribuídos valores numéricos 
aos diversos parâmetros, os quais tor¬ 
nam possível o registro gráfico de cada 
curva na formatação da tela, segundo 
a definição gráfica selecionada. 

No entanto, a partir das equações 
apresentadas, podemos expandir e de¬ 
senvolver quaisquer curvas, modifican¬ 
do em geral os diversos parâmetros e 
não se surpreendendo, contudo, se a 
máquina emitir “mensagem de erro”, 


DE CURVAS 
NO CP 400 

coisa que fatalmente acontecerá se os 
valores numéricos resultantes se reve¬ 
larem incompatíveis com a formatação 
da tela. 

MONTAGEM DOS 
PROGRAMAS 

Na totalidade dos programas apre¬ 
sentados, foi obedecida a seqüência 
abaixo: 

— Dimensionamento dos vetores (ar- 
rays) (DIM). 

— Definição do modo gráfico e cor 
(PMODE, PCLS, SCREEN). 

— Lançamento dos eixos H e V, atra¬ 
vés de impressão seqüencial (FOR 
V= ... FOR H = ...). 


— Definição do campo da variável in¬ 
dependente (X =...). 

— Impressão gráfica seqüencial (PSET 
(H, V)). 

UTILIZAÇÃO DOS 
PROGRAMAS 

Os 34 programas estão selecionados 
em 4 grupos, que apresentam entre si 
uma analogia básica que permite o 
aproveitamento da maioria de suas 
linhas. 

Assim, ao ser introduzida em cada 
grupo sua parte comum, denominada 
“Estrutura Básica” (EB), representa¬ 
da pelos programas “EB-1”, “EB-2”, 
“EB-3” e “EB-4”, a parte específica do 
programa será realizada pelo teclado 
com um mínimo de trabalho, como po¬ 
de ser observado analisando-se o Qua¬ 
dro II. 

Caso o leitor possua um gravador, é 
conveniente salvar cada programa 
(“CSAVE”, “ENTER”), afim de pos¬ 
teriormente desenvolver suas próprias 
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QUADRO 1 

CÓDIGO 

CURVA 

FÓRMULA 

100 

RETA 

y = ax + b 

110 

CfRCULO 

x 2 + y 2 = R 2 

120 

ELIPSE 

x 2 /a 2 + y 2 /b 2 = 1 

130 

PARÁBOLA 

y = ax 2 + b 

140 

HIPÉRBOLE 

x 2 /a 2 - y 2 /b 2 = 1 

150 

SERPENTINA 

x 2 y + b 2 y - a 2 x = 0 

160 

QUÁRTICA DE LAMÉ 

x 4 xy 4 = a 4 

170 

CÚBICA DE AGNESE 

x 2 y + 4a 2 y - 8a 3 = 0 

180 

CISÓIDE DE DIOCLES 

y 2 = x 3 /(2a - x) 

190 

TRISSETRIZ DE 

y 2 = x 2 (3a - x)/(a + x) 


MAC-LAURIN 


200 

CICLÓIDE 

f x = a(T - sen T) 



(y = a(1 - cos T) 

210 

EPICICLÓIDE 

f x = (a + b) cos T - b cos ((a + b)/b) T 



[ y = (à + b) sen T - b sen ((a + b)/b) T 

220 

HIPOCICLÓIDE 

f x = (a - b) cos T + b cos ((a - b)/b) T 



Ly = (a - b) sen T - b sen ((a - b)/b) T 

230 

ESPIRAL DE 

R = A/3,14 


,arquimedes 


240 

CARDIÓIDE 

R = a(1 + sen A) 

250 

CARACOL DE PASCAL 

R = a cos A + b 

260 

CONCHÓIDE DE 

R = a sec A - b 


NICÔMEDES 


270 

L1TUUS 

R 2 A - a 2 

280 

LEMINISCATA DE 

R 2 = 2a 2 cos 2A 


BERNUILLI 


290 

CRUCIFORME 

R = 2a cosec 2A 

300 

STROFÓIDE 

R = a(sec A ± tg A) 

310 

BIFOLIUM 

R - a sen T cos 2 T/(sen 3 T + cos 3 T) 

320 

FOLIUM DE DESCARTES 

R = a sen T cos T 

330 

ROSÁCEA DE 3 FOLHAS 

R = a sen 3A 

340 

ROSÁCEA DE 4 FOLHAS 

R = a sen 2A 

350 

ROSÁCEA DE 6 FOLHAS 

R = a cos 3A/2 

360 

ROSÁCEA DE 8 FOLHAS 

R = a sen 4A 

370 

ROSÁCEA DE 2x2 

R = a cos (b sen A) 

380 

ROSÁCEA DE 4 X 2 

R = a cos (b sen 2A) 

390 

ROSÁCEA DE 4x3 

R = a cos A sen A 

400 

ESTRELA DE 12 PONTAS 

R = 6 cos (sen 6A) 

410 

ESTRELA DE 10 PONTAS 

R = 5 cos (sen 5A) 

420 

ESTRELA DE 8 PONTAS 

R = 4 cos (sen 4A) 

430 

ESTRELA DE 6 PONTAS 

R = 3 cos (sen 3A) 


curvas a partir dos programas básicos 
ora apresentados. 

Nesta ocasião, observamos que a tro¬ 
ca das programações EB entre si é fa¬ 
cilmente realizada com o auxílio das ro¬ 
tinas “DEL”, “EDIT” e “RENUM” 
sem necessidade de reescrever toda a 
programação. 

Uma vez escolhido o grupo de curvas 
desejado, e introduzida sua parte co¬ 
mum “EB”, bastará você completar o 
programa específico na forma apresen¬ 
tada no Quadro III e ver no vídeo a ge¬ 
ração ponto a ponto da função de¬ 
sejada. 

MENSAGENS DE ERRO 

Os 34 programas apresentados foram 
testados e devidamente aperfeiçoados 
até o ponto em que a qualidade apura¬ 
da permitiu sua edição. 

Ao serem desenvolvidos novos pro¬ 
gramas originais ou derivados, podem 
ser esperadas ocasionais “mensagens 
de erro”, que devem ser localizadas nos 
seguintes pontos: 

— Geração de imagem maior que o 


campo da tela, resultante de valores 
de H e V superiores à definição 256 
e 192, permitidas para o CP 400 no 
modo de alta definição gráfica. 

— Ocorrência de “Divisões por zero” 
(./O), resultante de valores atribuí¬ 
dos à variável que efetivam um de¬ 
nominador nulo. 

DEPURAÇÃO 

De modo geral, eventuais erros são 
facilmente localizados através da roti¬ 
na apresentada a seguir: 

— Edição de instrução auxiliar man¬ 
dando imprimir dentro do laço da 
variável principal seu valor numéri¬ 
co passo a passo. Ex.: “For A = 0 
TO 6,28 STEP. 5” — Editar linha 
auxiliar “PRINTA”. 


— Com o procedimento anterior, a má¬ 
quina fará a impressão dos valores 
de A e, ao se dar o “Estouro da Te¬ 
la”, o vídeo fará a impressão do 
erro. 

— Nesta oportunidade, ficará conhe¬ 
cido o valor da variável que produ¬ 
ziu o “Estouro da Tela”, tornando- ** 
se simples contornar o problema por 
artifícios computacionais de uso 
comum. 

MODO GRÁFICO 

Para ilustrar as aplicações dos diver¬ 
sos recursos gráficos do CP 400, foram 
adotados os modos 1,2, 3 ou 4, em di¬ 
versas cores, dependendo da necessida¬ 
de de maior ou menor definição gráfi¬ 
ca de cada curva apresentada. 
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QUADRO II 

UNHA 

EB-1 

EB-2 

EB-3 

EB-4 

20 

DIM V (200) 

DIM V (200) 

DIM V (200) 

DIM (200) 

30 

DIM H (257) 

DIM H (257) 

DIM H (257) 

DIM H (257) 

40 

PMODE 3,1 

PMODE 3,1 

PMODE 4,1 

PMODE 4,1 

50 

PCLS 

PCLS 

PCLS 

PCLS 

60 

SCREfN 1,1 

SCREEN 1,1 

SCREEN 1,1 

SCREEN 1,1 

70 

FOR H = 0 TO 257 

FOR H = 0 TO 257 

FOR H = 0 TO 257 


80 

PSET (H, 100, 8) 

PSET (H, 100, 8) 

PSET (H, 100, 1) 


90 

NEXT H 

NEXT H 

NEXT H 


100 

FOR V = 0 TO 200 

FOR V = 0 TO 200 

FOR V = 0 TO 200 


110 

PSET (128, V, 8) 

PSET (0, V, 8) 

PSET (128, V, 1) 


120 

NEXT V 

NEXT V 

NEXT V 



OBS.: ESTAS ESTRUTURAS BÁSICAS APLICAM-SE AOS SEGUINTES PROGRAMAS 




EB1 • 100 


10 REM RETA 
20 DIM V(200) 

30 DIM H(257) 

40 PMODE 1,1 
50 PCLS 
60 SCREEN 1,1 
70 FOR H = 0 TO 257 
80 PSET(H, 100,8) 

90 NEXT H 

100 FOR V = 0 TO 200 

110 PSET(128,V,8) 

120 NEXT V 

130 FOR X = -100 TO 60 

140 Y = X + 30 

150 V = 100-Y 

160 H = 128 + X 

170 PSET(H,V,8) 

180 NEXT X 
190 GOTO 190 


EB2 • 200 


10 REM-CICLOIDE 
20 DIM V(200) 

30 DIM H(257) 

40 PMODE 1,1 
50 PCLS 
60 SCREEN 1,1 
70 FOR H = 0 TO 257 
80 PSET(H,100,8) 

90 NEXT H 

100 FOR V = 0 TO 200 

110 PSET(0,V,8) 

120 NEXT V 

130 FOR T = 0 TO 6.28 STEP .05 
140 M = SIN(T) 

150 X = 40*(T—M) 

160 Y = 40*( 1—COS(T)) 

170 V= 100—Y 
180 H = X 
190 PSET(H,V,8) 

200 NEXT T 
210 GOTO 210 


EB3 - 290 


EB4 • 220 

10 REM-CRUCIFORME 


10 REM-HIPOCICLOIDE 

20 DIM V(200) 


20 DIM V(200) 

30 DIM H(257) 


30 DIM H(257) 

40 PMODE 4,1 


40 PMODE 4,1 

50 PCLS 


50 PCLS 

60 SCREEN 1,1 


60 SCREEN 1,1 

70 FOR H = 0 TO 257 


70 FOR T = 0 TO 12.56 STEP .05 

80 PSET(H, 100, 1) 


80 X = 30*COS(T) + 20*COS(1.5*T) 

90 NEXT H 


90 Y = 30*SIN(T)—20*SIN(1.5*T) 

100 FOR V = 0 TO 200 


100 V = 100—Y 

110 PSET(128,V,1) 


110 H = 128 + X 

120 NEXT V 


120 PSET(H,V,1) 

130 FOR A = 0 TO 6.28 STEP .025 


■130 NEXT T 

140 IF A>0 AND A<.05 THEN GOTO 260 


140 GOTO 140 

150 IF A>.735 AND A<.835 THEN GOTO 260 

160 IF A> 1.45 AND A<1.‘67 THEN GOTO 260 

170 IF A>2.305 AND A<2.405 THEN GOTO 260 
180 IF A>3.00 AND A<3.24 THEN GOTO 260 



190 IF A>3.875 AND A<3.975 THEN GOTO 260 
200 IF A>4.6 AND A<4.76 THEN GOTO 260 

210 IF A >5.445 AND A<5.545 THEN GOTO 260 
220 IF A>6.175 AND A<6.28 THEN GOTO 260 

230 IF SIN(2*A) = 0 THEN GOTO 260 

240 R = 15/SIN(2*A) 

250 PSET((128 + R*COS(A)), <100+R*SIN (A)),1) 

260 NEXT A 

270 GOTO 270 . 





FOTOS: SELF/MAURICIO 
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APLICATIVO/PROCESSADOR DE PALAVRAS 

Não jogue fora suas idéias 


CP 500 ou CP 300 

Você elabora um texto. Depois de 
pronto, descobre que faltam umas coi- 
sinhas aqui, outras acolá e que aquele 
segundo parágrafo jamais poderá ficar 
naquela carta. Nessas e em outras você 
já percebeu quanto papel gastou? E a 
paciência, para onde foi? Em muitos ca¬ 
sos, para a lata de lixo, junto com sua 
melhor idéia. 

Mas se você é um usuário do CP 300 
ou CP 500, versão fita cassete, a partir 
de agora não precisa mais se preocupar: 
o seu computador pessoal vai substituir 
com vantagem a tradicional máquina de 
escrever, tanto na eficiência como no 
tempo gasto para a elaboração de qual¬ 
quer tipo de texto, com várias opções 
para diagramação. É só operar o pro¬ 
grama Processador de Palavras. Explo¬ 
re melhor as possibilidades deste pro¬ 
grama seguindo corretamente as instru¬ 
ções abaixo. 

No início da execução do Processa¬ 
dor de Palavras será solicitado o co¬ 
mando desejado. Digite HELP ou so¬ 
mente a letra H para conhecer todos os 


versão fita cassete — 16 

outros comandos disponíveis do pro¬ 
grama. Para utilizar qualquer um deles, 
basta digitar o nome completo do co¬ 
mando ou mesmo a sua letra correspon¬ 
dente. Os comandos disponíveis são: 

1. ADD ou A — Deve ser utilizado 
imediatamente após o comando 
HELP. Permite a montagem do 
texto, numerando todas as linhas, 
a partir de zero. 

2. BLANCK ou B — Este comando 
retira todas as linhas em branco que 
estiverem no seu texto e renumera 
as linhas escritas a partir de zero. 

3. DELETE ou D — Permite deletar 
uma ou mais linhas do texto. Para 
tanto, você deve dar o número da 
primeira e última linha. Para reor¬ 
ganizar o texto, utilize o comando 
BLANCK. 

4. EDIT ou E — Este comando edita 
uma linha específica do programa, 
ou seja, altera, deleta, insere e cor¬ 
rige a linha desejada. 

5. FORMATSouF —Formata o tex¬ 
to para saída na tela ou impressora. 


Kb RAM . . |j 

6. HELP ou H — Relaciona os co¬ 
mandos disponíveis. 

7. INSERT ou I — Insere uma linha 
qualquer no texto. Não é possível 
esta operação no final do texto. Pa¬ 
ra tanto, utilize o comando ADD. 

8. JUSTIFY ou J — Confirmação do 
texto. 

9. KILL ou K — Elimina o texto sem 
sair do programa. 

10. LOAD ou L — Leitura dos dados 
gravados em fita cassete. 

11. MOVE ou M — Permite a movi¬ 
mentação de linhaá ou blocos de li¬ 
nhas para outro local do texto. 

12. PRINT ou P — Impressão. 

13. REPLANCEouR —Permite a al¬ 
teração de toda uma linha do texto. 

14. SAVE ou S — Gravação do texto 
em fita cassete. 

15. VÍDEO ou V — Neste comando se¬ 
rá dada a saída de seu texto para o 
vídeo, conforme formatação elabo¬ 
rada no comando F. 

16. EXIT ou X — Elimina o texto e sai 
do programa. 


iO '**************************** 

20 '* PROCESSADOR DE PALAVRAS * 

30 '* COMP. PESSOAIS * 

qO / * CP-30 O /5O0 * 

50 '**************************** 

60 CLS:PRINTTAB<15)“PROCESSADOR DE 
PALAVRAS n 

70 CLERR 7400! DEFINI R-Z:NL=120:Dl 
M Rí < NL >,Xí (3),S < 20 > ,T < 20) 

80 Bí=CHRí (30) : Cí=CHRÍ (.143) : Fí=" ## 
# ":NÍ="S":PNÍ="N":P1 í="S" 

90 Sí=" ":HÍ=SÍ:LR=--1:P=1sFP=1:PL= 
i5sLU=60:LM=Í0:U=32í0UT 254,1 
100 L=LA: IT=0 :R=0 sRí=""2 PRINT:INPU 
T"ENTRE COM 0 COMANDO"5R*:IF Rí="" 
GOTO120 

110 R=RSC(Rí>-64:IF R>0 ON R GOTO 
130 ,520 ,120 ,550 ,530 ,10.10 

,120 ,1110 ,1140 ,1130 ,1300 ,13 

10 ,1500 ,120 ,120 ,1560 ,120 , 

1670 ,1690 ,120 ,120 ,1330 ,120 

, 2020 

120 PRINT"** ERRO DE ENTRRDR **"*G 
OTO 100 


130 CLS:D=0:N$="S" s IF LR<0 THEN L= 
0:GOTO 170 : 

140 IF NL=LR+1 THEN 250 : ELSE IF 

L > FL+12 THEN B=L-12:ELSE B=FL 
150 FOR I=B TO L:X=LEN(Rí(I))sD=D+ 
(X+3)/64 

160 GOSUB 1960 !NEXT I:L=L+1 

170 C= (L-FL+D ) *64 5 IF 0396 PRINT sP 

RINT:0=396 

ISO PRINTSC,USING Fí;L;rPRINTRÍ(L) 

;:P=LEN(Rí(L))+1:C=C+P+3:K=L+1 
190 PRINTSC,Cí S:RÍ=INKEYÍ:PRINTSC, 
Sí;:IF Rí=" " GOTO 190 
200 GOSUB 33o • ON fl~7 GOTO 400 , 

450 ,350 

210 IF fl=13 THEN RÍ=SÍ:G0T0250 :E 
LSE IF R=24 THEN 420 :ELSE IF R=3 
1 GOTO 500 

220 IF R=25 THEN 470 :ELSE IF fl= 

26 THEN 370 

230 IF R~96 IF LR< L THEN LR=L:GOTO 
100 2 ELSE 100 

240 PRINTSC,Rí;:Rí(L)=RÍ<L)+RÍ:IF 
p < =LL THEN P=P+1 :C=C+1:G0T0190 
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GOTO 


250 IF R GOTO 100 :ELSE IF NL < =K 
PRINTsPRINT"ARQUIVO CHEIO" :LA=NL-1 
sGOTO100 

260 IF LEN(R$(K)) THEN L=K*GOSUB 1 
150 

270 IF K > LR THEN LR=K 

2S0 IF R$=S* GOTO 320 

290 FOR M=LL+1 TO 2 STEP -l:R*=MID 

$(R$(L),M,1):IF R$< >S$ NEXT MsGOTO 

320 

300 R$(K>=RIGHT$<R*(L),LL-M+1):Rí < 
L)=LEFT$(R$ (L),M-T) 

310 PRINTSC-LL+M-T,B* 5:L=K:G0T0170 

320 R$(L>=LEFT$(R$(L),LL):L=K:GOTO 
170 

330 R=RSC(R$)5IF R>64 RND R<91 THE 
N fl=R+UsELSE IF A>96 RND fl<123THEN 
R=A-U 

340 R*=CHR*(R >:RETURN 
350 IF P >LL GOTO 250 :: 

360 PRINT@C,CHR*(92) j:R$(L)=fl$<L>+ 
CHR*(17 >:R$=S$:G0T0250 
370 IF P >LL GOTO 250 :: 

3S0 C=<L-FL+D)*64+4:IF 0 900 THEN 
£>900 

390 GOSUB 970 :P=1:R$=S*:G0T0250 

400 IF P=1 G0T0190 :! 

410 C=C-1sPRINTSC,B$;:P=P-1:R$(L)= 
LEFT$< fl$ (L > ,P-l>:G0T0190 
420 IF P=1 GOTO190 :: 

430 R$ (L) =■" " 5 P=1s C= (L-FL+D > *64+4 51 

F 0 900 THEN 0900 

440 PRINTSC,B$;SG0T0190 

450 IF P>LL-6 GOTO 190 :: 

460 R*(L>=R$(L)+STRING$<5,S*):C=C+ 

5 5 P=P+5sGOTO190 

470 IF P >LL GOTO 250 :: 

4S0 C=(L-FL+D)*64+4slF 0900 THEN 
C=900 

490 G0SUB990 :P=1sR$=S$:G0T0250 
500 IF P>L GOTO 250 :: 

510 PRINTSC,CHR*(93)j:R$(L)=fl*(L)+ 
CHR*(20):fl$=S$:G0T0250 
520 CLS:PRINT"DELETRNDO LINHRS EM 
BRANCO":FOR J=Lfl TO 0 STEP -1:: 

530 IF R$(J) = " " FOR I=J TO Lfl:R$(I 
) =R*.( 1 + 1) : NEXTI: fi$ ( LR > = " " : LR=LR-1 
540 NEXT JSIF R THEN RETURNsELSE 1 

sso 

550 INPUT"PRIMEIRA LINHR PARA DELE 
TAR";F:IF F<0 THEN :: 

560 INPUT"ULTIMR LINHR PRRR DELETR 

R"52:IF Z>LR THEN Z=LR 
570 IF F >Z THEN 120 :ELSE FOR I=F 
TO Z s R$(I) = "":NEXT Is GOTO ISSO 
5S0 INPUT "QURL R LINHR DE EDICRO" 


;LSIF L<0 OR DLR OR R$(L)="" 

120 ' :: 

590 C=4:P=1í X$ (0)=R$(L):N$="S" 

600 CLS:I=L:GOSUB 1960 sN=l:Q$="" 
610 GOSUB 700 SIF R>47 RND Rí5S T 
HEN Q$=Q$+R$:N=VRL(Q$):G0T0610 . 

620 M=0:IF R=8 THEN Y=-l:GOSUB 730 
JELSE IF R=9 OR R=U THEN Y=l:GGS 
UB 730 

630 IF fl=97 THEN A$(L)=X$(0) :G0T05 
90 : s 

640 IF LEN( fi$ (L))>=LL GOTO 660 
650 IF R=25 GOSUB 990 sELSE IF fi= 
26 GOSUB 970 

660 IF A >98 ON fl-98 GOSUB 750 ,79 

0 ,2010 ,2010 ,2010 ,810 ,320 

670 IF fl-115 GOSUB 910 sELSE IF R 
=120 GOSUB 960 sELSZ IF R=10S GOT 
0 590 

6S0 IF M=1 THEN N=1:Q*=""SG0T0610 
sELSE IF R PRINTÔ320, 5 SELSE6Ô0 
690 IF LL< X PRINT"LINHR";L j"TEM"j X 
; "CARACTERES" sGOTO 100 sEi_SE 18S0 

700 X$=MID$ ((L) , P, 1)' 

710 PRINTSC,C$;:R$=INKEY$s PRINTSC, 
X$;sIF R$=" " GOTO 710 
720 GOSUB 330 :X=LEN(fl*(L> ) slF. fl= 
13 OR R=96 THEN R=1:RETURNsELSE RE 
TURIM -: 

730 M=1sFOR 1=1 TO N:P=P+Y:IF P>X 
THEN P=X:RETURN 

740 IF P<1 THEN P=1:RETURNsELSE'C= 
C+Y s NEXT isRETURN 

750 Q=Ps D=Cs FOR 1 = 1 TO NsGOSUB 700 
:IF R OR R=27 THEN P=Q:C=D:RETUR 

N S 5 

760 PRINTSC,R*5:GOSUB 390 :P=P+ls 
GOSUB 900 :R$(L >=L*+R*+R* 

770 R=U:C=C+1sIF P<=X NEXT I 

730 P=Q:C=D s RETURN 

790 IF P+N-T > X THEN N=X-P+ls: 

SOO GOSUB S90 :Q=P:P=P+N:GOSUB 90 

0 s R$(L)=L*+R*:P=Q:RETURN 
S10 GOSUB S90 :R*(L)=L*+S$:PRINTS 
C , B$ s s 

S20 GOSUB 700 slF R OR fl=27 RETUR 
N s s 

S30 IF fl=10 THEN fl$<L)=fl$(L)+CHR*< 
17):R=lsRETURN 

S40 IF R=3i THEN A$(L)=R*<L)+CHR$( 
20)s R=1:RETURN 

350 PRINTSC,R$; s IF R=3 THEN Y=-l:G- 
QSUB 730 :G0T0S20 

860 IF R=9 THEN Y=l:GOSUB 730 :G0 

TO S20 sELSE IF P>X THEN X=P 
S70 GOSUB 390 :GOSUB 900 :R$(L>= 

L$.+fl*+R*s PRINTSC ,-B*;flé+R* 


GERAÇÃO PROLÓGICA 


3 


830 C=C+i s P=P+1: G0T0820 

890 Lf =""!IF P<2 RETURNsELSE Lf=LE 

FTf(flf (L) ,P-l):RETURN 

900 Rf ="":IF P>X RETURNs ELSE Rf=RI 

GHTf(flf(L>,X-P+1):RETURN 

910 GOSUB 700 : Q=p:D=Css 

920 FOR 1 = 1 TO NsF=0 s FOR J=Q+1 TO 

X:D=D+1 

930 IF MIDf(Rf(L),J,l)=Rf THEN F=1 

■ Q-~ J . 

940 NEXT JsNEXT I5IF F THEN P=Q:C= 
D 

950 fl=UsRETURN 

960 Rf (L)=flf(L)+Sf:P=X+1:C=P+3:GOT 
0 820 s: 

970 flf (L)=STRINGf(<LL-LEN(flf(L)) )V 
2■32)+Rf(L)+CHRf(20)ss 
980 PRINTSC,Bf S Rf(L > 5 CHRf (93) ,* s RET 
URN 

990 Rf (L)=STRINGf(LL-LEN(Rf(L)),32 
)+Rf(L>: 

1000 PRINTSC,Bf;flf(L >;sRETURN 
1010 CLSSPRINT"RTURL TRMRNHO Dfl LI 
NHfl="5 LL, :INPUT"N0V0" 5 LL:s 
1020 PRINT"ESPRCOS ENTRE RS LINHR 
S=";S, :INPUT"N0V0=" ;s 
1030 PRINT"LINHRS NUMERRDRS= ' ";Nf 
5"'",SINPUT "NOVO (S/N)";Nf 
1040 PRINT"NUMERO DR PRIMEI RR LINH 
fl= ";FL,sINPUT"NOVO=";FL 
1050 PRINT"RTURL MRRGEM ESQUERDA=" 
5LM,SINPUT "NQVO=";LM 
1060 PRINT "RTURL TRMRNHO Dfl PAGIN 
fl=";PL, SINPUT "NOVO-" ,'PL 
1070 PRINT"IMPRESSRO COM PRGINRS= 
'";PN$+",SINPUT "NOVO <S/N>";PNf 
1080 PRINT"NUMERO DR PRIMEIRR PRGI 
NR= ";FP,SINPUT"NOV0="üFP 
1090 PRINT"SEMPRE NUMERRR PAGINAS 
= '";pif;" 7 ",siNPUT "novo <s/N)“;p 
1$ 

1100 PRINT"TITULO RTURL= '";Hf;"' 

",sINPUT "N0V0="; Hf :G0T0100 
1110 CLSsPRINT"COMANDOS R UTILI2RR 

O II « I 
m um 

1120 PRINT"A RDD","B BLRNK","D DEL 
ETE","E EDIT","F FORMRT","H HELP", 
"I INSERT","J JUSTIFY","K KILL","L 
LORD","M MOVE","P PRINT","R REPLR 
CE","S SRVE","V VIDEO", "XEXIT" . 
1130 PRINT"ATENCROs TECLE DURS VEZ 
ES y SHIFT ~@' PRRfl RETORNAR R OPCRO 
DOS COMANDOS QUANDO ESTIVER NR OP 
CRO R,E,I,R"sGOTO 100 
1140 INPUT "INSERIR EM QUE LINHR"; 
L sIF L< 0 OR L >LR GOTO 120 s: 

1150 IF NL=Lfl+l PRINT"RRQUIVO CHEI 
0"sGOTO100 sELSE IF R G0T0100 


1160 FOR I=LR TO L STEP-l: flf (-1 + 1) = 
Rf(I)s NEXT I 

1170 flf(L)=""5Lfl=Lfl+lsL=L-lslF IT 
RETURNsELSE IT=lsG0T0130 
1180 CLSsPRINT"CONFIRMRNDO"sFOR L= 
0 TO LR s X=LEN(flf(L))s: 

1190 IF X<2 GOTO 1290 sELSE FOR 1 = 
X TO 2 STEP-l:R=RSC(RIGHTf(Rf<L),1 
) ) 

1200 IF R=U THEN Rf(L)=LEFT$(flf(L) 
,1-1)s X = X-1s NEXT I 

1210 IF X >=LL OR R=17 OR R=20 THEN 
1290 sELSE J=0sK=1sFOR 1 = 1 TO X 
1220 IF MIDf(Rf(L),1,1)<>S$ THEN K 
=0SELSE IF K=0 THEN K=1sS(J)=1:J=J 
+1 

1230 NEXTIsIF J=0 GOTO 1290 
1240 K=RND(J)-1sIF INT(J/2)=J/2 OR 
J=1 THEN N=1sELSE N=2 
1250 FOR 1=1 TO LL-X s T(K)=T(K)+1S K 
=K+NsIFK >J-l THEN K=K-J 
1260 NEXTI s FOR I=J-1 TO 0 STEP -1 
s A$=STRING$(T(I),S$)s T(I)=0 
1270 flf(L)=LEFT$(flf(L),S(I))+Rf+RI 
GHTf(Rf(L),LEN(Rf(L))-S(I)) 

1280 NEXT I 

1290 NEXT L s G0TQ1S80 

1300 CLS sINPUT"DESEJR MRTRR 0 RRQU 

IVO <S/N)";flfsIF R$="S" THEN RUNsE 

LSE 100 s: 

1310 GOSUB 1870 sCLSsPRINT"LENDO D 

ADOS Dfl FITR"s t 

1320 INPUT#-1, LR 

1330 INPUT#-1,LL 

1340 INPUT#-1,S 

1350 INPUT#-l,Nf 

1360 INPUT#—1,FL 

1370 INPUT#—1,LM 

1380 INPUT#-1,PL 

1390 INPUT#—1,PNf 

1400 INPUT#—1,FP 

1410 INPUT#-1,Plf 

1420 INPUT#—1, Hf 

1430 FOR 1=0 TO LR STEP 4sINPUT#-l 
,Xf(0) 

1440 INPUT#-1,Xf(1) 

1450 INPUT#-.l, Xf (2) 

1460 INPUT#-1,Xf(3) 

1470 FOR J=0 TO 3 s L=I+J s X=LEN(Xf(J 

))5Rf<L)=""SIF X<1 GOTO 1490 

1480 FOR K=1 TO X s flf(L)=flf < L)+CHRf 

(RSC(MIDf(Xf(J),K,1)))SNEXTK 

1490 NEXTJ s NEXTI:GOTOIOO 

1500 INPUT"PRIMEIRR LINHR PRRR MOV 

ER "S F sIF F< 0 THEN F=0 s s 

1510 INPUT"ULTIMA LINHR PRRR MOVER 

";ZsIF Z>Lfl THEN Z=LR 

1520 IF F)Z THEN 120 sELSE INPUT" 
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PRIMEIRO NOVO LINHO";N:FOR I=F TO 

T 

JU 

1530 IF LEN(0$(N)) PRINT"LINHO";N; 
" CHEIO ":1=2+1: CH=1:G0T01550 
1540 A4(N)=A4(I>:04<I)="":N=N+l:lF 
N > LO THEN LO=N 

1550 NEXT I!IF CH=1 THEN GOTO 100 
ELSE CH=0 :GOTO ISSO 
1560 IF PEEK(14312)<128 THEN X=FP: 
M=FL:GOTO 1590 :: 

1570 INPUT"IMPRESSORA NOO ESTO PRO 

NTfl. OBONDONOR <S/N)";04 

1530 IF 04="S" THEN 100 :ELSE INP 

UT "PRESSIONE ENTER"j0$:G0T01560 

1590.R=1:G0SUB520 :CLS:PRINT"IMPR 

IMINDO" 

1600' LPRINT CHR4(30):IF PN4<>"S" 0 
R •<P1*="N" AND X = l) GOTO 1620 
1610 LPRINT TABXLM)H4 ? TOB(LL+LM-7) 
"POGINO";USING"###";X:LPRINT TOB(L 
M) 

1620 FOR P=M TO M+PL-ÜIF P>LO GOT 
0 1660 

1630 M=M+15IF S LPRINT STRING4(S-1 
,13) 

1640 LPRINT T0B(LM);:IF N4="S" LPR 
INT USING F4;P; 

1650 LPRINT A4(P):IF ASC(RIGHT4(A4 
(P) ,1) ) 017 NEXT P 
1660 LPRINT CHR4(2S):IF P>Lfl THEN 
100 SELSE X = X + 1:GOTO 1600 
1670 INPUT "DESEJO TROCAR QUAL LIN 
HA";L:IF L<0 OR L>Lfl GOTO 120 :: 

1680 R=1:A4(L>="":L=L-1:G0T0130 
1690 GOSUB 1S70 sCLSSPRINT "GROVON 
DO DADOS NO FITO":: 

1700 PRINT#—1, LO 
1710 PRINT#-l,LL 
1720 PRINT#—1,S 
1730 PRINT#—1, N4 
1740 PRINT#-1,FL 
1750 PRINT#—1,LM 


1760 PRINT#-l,PL 
1770 PRINT#-l,PN4 
17S0 PRINT#-l,FP 
1790 PRINT#-1,P14 

1S00 PRINT#~1,H4:F0R L=0 TO LO STE 
P 4 

1810 FOR J=0 TO 3:I=L+J:X=LEN(A4(I 
)):X4(J) = "":IF X <1 GOTO 1S30 
1S20 FOR K=1 TO XsX4(J)= X4(J)+CHR4 
(OSC (MID4 < 04- (I) , K , 1) ) ) : NEXTK! 

1S30 NEXT J:PRINT#-i,X4(0) 

1S40 PRINT#-1,X4<1> 

1850 PRINT#—i,X4(2 > 

1860 PRINT#—1,X4 < 3 >:NEXTL:G0T0100 

1870 INPUT "QUANDO PRONTO 0 COSSET 
E PRESSIONE < ENTER >"5 0$:RETURN 
ISSO CLS s X=FP-1!FOR M=FL TO LO STE 
P PL:X=X+1:: 

1890 IF P14="N" AND X=1 GOTO 1910 
1900 IF PN4“"S" PRINT HS;T0B(LL-7) 
"POGINO"USING "###";X SPRINT 
1910 FOR I=M TO M+F‘L-1 s IF DLfl GOJ 
0 1940 

1920 IF S PRINT STRING4(S-l,10) 
1930 GOSUB 1960 

1940 NEXT ..IF I<=LO INPUT " 

PRESSIONE ENTER";04:IF 04<>""M=L0 

1950 NEXT M:L=LO:GOTO 100 

1960 Y=LEN(04(I)):IF Y THEN 0=0SC( 

RIGHT4(04(I),1)):ELSE 0=0 

1970 IF N4="S" PRINT USING F4;Ij 

1980 PRINT 04(1)5sIF 0=17 PRINT CH 

R4(92)? 

1990 IF 0=20 PRINT CHR4<93);:ELSE 
IF 0=U PRINT CHR4(95)j 
2000 IF N4< >"S" OR Y<>69 PRINT 
2010 RETURN 

2020 CLS:INPUT"DESEJO SAIR DO PROG 
RAMO (S/N)":04:IF 04<>"5" GOTO 100 

■ m 

m 9 

2030 CLS:CLEBR 50■QUT25^ * 0:END 


UTILITÁRIO 

Listagem rápida 


CP 400 COLOR - 16 Kb RAM 


Se você estiver desenvolvendo um 
programa e precisar de uma boa revi¬ 
são, utilize este utilitário, que permite 
ao CP 400 dispor do recurso de uma lis¬ 
tagem super-rápida, com a simples uti¬ 
lização das setas. 


A rotina de listagem automática es¬ 
tá, na realidade, em linguagem de má¬ 
quina, porém, o programa que a colo¬ 
ca na memória está em Basic. Esse pro¬ 
grama utiliza uma série de recursos 
avançados, que analisaremos a seguir. 


Mas, antes de você terminar a digitação, 
não deixe de copiá-lo em fita ou disco 
antes de rodar, pois ele apaga a porção 
em Basic da memória, deixando apenas 
a rotina em linguagem de máquina 
operando. 
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Inicialmente, o programa localiza o 
topo da memória na linha 330. Com es¬ 
sa informação, ele separa espaço sufi¬ 
ciente na memória para acomodar a ro¬ 
tina em linguagem de máquina (linha 
340) e localizar o novo topo da memó¬ 
ria, na linha seguinte. 

As quatro linhas a seguir (360 a 390) 
lêem os valores decimais corresponden¬ 
tes à rotina, para acomodação na área 
de memória previamente reservada. 
Esta área, com este procedimento, fi¬ 
ca protegida contra futuros NEWs, 
CLOADs ou LOADs — o que significa 
que todos os programas que foram co¬ 
locados na memória não afetarão esta 
rotina. 

A linha 400 ativa a rotina e a 410 lo¬ 
caliza o início do programa em Basic 
que a carregou. A linha seguinte coloca 
dois zeros no começo daquele progra¬ 
ma para que o computador o considere 
“apagado”. Na linha 430, outros dois 


zeros são colocados na memória, des¬ 
ta vez nos endereços usados pelo com¬ 
putador para marcar a linha onde ele 
está trabalhando. 

A ROTINA 

A primeira parte do código carrega¬ 
do altera duas posições de memória pa¬ 
ra que o computador salte para a roti¬ 
na SUPERLIST toda vez que uma te¬ 
cla seja pressionada. 

A segunda parte é a sub-rotina, para 
onde o computador salta quando qual¬ 
quer tecla é pressionada. Essa sub- 
rotina verifica se a tecla digitada foi a 
seta para cima e, nesse caso, muda o va¬ 
lor decimal de 94 para üm, a fim de que 
não seja impfesso o colchete. 

A terceira parte é a principal da roti¬ 
na. Ela verifica qual seta foi pressiona¬ 
da, localiza o número e o endereço da 
linha imediatamente posterior ou ante¬ 
rior, conforme o caso, e ativa a sub- 


rotina na ROM, que procederá à deco- 
dificação e listagem dessa linha. 

OBSERVAÇÕES FINAIS 

Se você for usar o SUPERLIST com 
vários programas, não se esqueça de 
executar um LIST da parte que preten¬ 
de analisar logo após carregar cada pro¬ 
grama. Isso deve ser feito sempre, pois 
o computador mantém registro de on¬ 
de estava a última linha de programa, 
mesmo que um novo programa seja co¬ 
locado na memória. Essa informação 
só é adaptada ao novo programa após 
um LIST. Dependendo de onde estiver 
esse endereço, o SUPERLIST pode en¬ 
contrar a próxima linha do novo pro¬ 
grama; caso contrário, o computador 
poderá travar. No entanto, se isso acon¬ 
tecer, simplesmente acione RESET, di¬ 
gite LIST e pressione ENTER para tu¬ 
do voltar ao normal. 


10 ' SUPERLIST 

20 ' JflN/85 PAULO RDDAIR 

30 CLS s TMapEEK (39) *256+PEEK (40 ) 
40 CLERR 200 ,TM-240 
50 TM=PEEK (39) *256+.PEEK (40 ) 

60 FORX-TM TO TM+223 
70 RERD fl 
80 PGKE X,R 
90 NEXT X 
100 EXEC TM 

110 P=PEEK(25)X25Ó+PEEK(26) 

120 POKEP, 0 -POKEP+1x 0 

130 POKE 43,0sPÜKE 44,0 

140 DRTfl 49,141,0,220,190,1,107, 

175,164,48,141,0,36,191,1,107,49 

,141,0 

150 DRTR214,190,1,104,175,164,48 
,141,0,4,191,1,104,57,129,94,38, 
8,111 

160 DRTfl 130,90,134,1,50,98,57, 

110,157,0,185,52,119,51,141,0, 

169,129 

170 DRTfl 1,39,20,129,10,38,10, 
141,26,236,70,221,43,174,72,141, 
122,53,119 


180 DRTR110,157,0,145,141,10,236 
,66,221,43,174,68,141,106,32,238 
,158 

190 DRTfl 25,236,132,38,4,50,98, 

32,228,220,43,39,60,16,131,255, 

255,39,54 

200 DflTA237,6ó,175> 68,16,174,132 
,16,174 ,'164,38,5,237,70,175,72, 

57.16 

210 DATA 163,2,39,14,52,6,236,2, 
237,66,53,6,175,68,174,132,32, 

237.16 

220 DRTfl 174,132,16,174,164,39, 
2,174,132,236,2,237,70,175,72,32 
,218,236 

230 DATA 2,237,70,175,72,237,66, 
175,68,16,174,132,16,174,164,39, 
200,175 

240 DRTfl 68,236,2,237,66,174,132 
,38,238,32,188,52,16,189,189,204 
,189 

250 DflTfl 185,172,53,16,189,183, 
194,206,2,221,166,192,39,5,189, 
185,177,32,247,189,185,92,57 


UTILITÁRIO 

80 Kb para o CP 400 COLOR 


Este programa possibilita operar seu 
CP 400 com 80 Kb de memória. Como 
é possível? Conte com a gente: são 
64 Kb de RAM disponível para você e 

6 


16 Kb de ROM. 64 + 16 = 80 Kb. Em¬ 
bora pequeno, este programa é muito 
poderoso, e faz o que chamamos de pa¬ 
ginação de memória. O que realmente 


ocorre é que este programa divide a me¬ 
mória em “páginas” com 32 Kb cada 
uma, completamente independentes. 
Podemos, então, comparar o CP 400 
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a dois computadores, um dentro do ou¬ 
tro, cada um com 32 Kb de RAM. Vo¬ 
cê poderá carregar dois programas in¬ 
dependentes nas duas páginas, acessar 
o cassete separadamente etc. 

Após digitar o programa, rode-o. A 
tela não deverá se modificar. Agora di¬ 
gite — na sequência — new ENTER, 
CLEAR e EXEC 32383, para visuali¬ 


zação da cópia do programa original, 
que estava na “página” 1. Oda “pági¬ 
na” 2, onde você estava antes, foi apa¬ 
gado. Digite agora EXEC 32353. Pron¬ 
to. Cá estamos de volta na “página” 2. 
Agora, todas as vezes que você quiser mu¬ 
dar de página, é só utilizar os comandos: 
EXEC 32353 para passar para a “pági¬ 
na” 2 e EXEC 32383 para passar para 
a “página” 1. Você também poderá in¬ 


cluir estes comandos em um programa 
BASIC e carregar e executar programas 
completamente diferentes nas duas pági¬ 
nas, sem que um atrapalhe o outro. Mas 
vale a pena fazer aqui algumas observa¬ 
ções: você não poderá usar comandos de 
alta resolução na “página” 2, não pode¬ 
rá rodar os dois programas simultanea¬ 
mente e, se RESET for pressionado, vo¬ 
cê voltará sempre para a “página” 1. 


1 0 ' x- * * * * * * * * * x- * * x- x- * * x- * * * * * * * * * * 
20 ' x 88 K * 

30 '* C.P. COMP. PESSOAIS * 
40 ' x CP-400 * 

50 '* PROGRAMA DO USUÁRIO * 
68 ' *-x- x x x x x x xxxx xxx x xxxxxxxxxxxx 

70 CLERR100,32300 
80 FORI-65068 TO 65068+112 sREADR 
$:POKEI,UAL <"&H"+A$):NEXTI 
90 RESTORE 

100 FORI=32300 TO 32300+112sREAD 
R$: POKEI r VAL ("&H"+R$) 

110 NEXTI 
128 RESTORE 

130 DEFUSR0® 32300: DEFUSR 1=32326 

me IFPT>8THENi86 

150 PT®1 

160 XX®USR(8) 

170 GOTO80 


POKE&HFFDE,I 
YY=USR1(0) 

END 

DATR1R ,*50 , 8E, 
DATAFF,DFrA7, 
DATAFF700*26» 
DRTRRF ,39 
DATA!A?50 7 8Ej 
DRTA 00, 06,80, 
DATRB7rFi-7D4r 
DRTRF0, 1C,RF 
DATAB7 , FF , D5, 
DATAB7, FF ,C6 >• 
DATRCA 7 B77 FF , 
DATAFF700 7 B7 7 
0ATAB7 7 FF 7 D4, 
DRTAB7 7 FF ,C6, 
DATACR 7 B7, FF 7 
DATAFF 7 08 7 B7 7 


807007067847 B7 
80 7 B7 » FF 7 DE 7 8C 
F1 7 B7 7 FF 7 DF,1C 

00700,1878E708 

B7, FF, , 05,07,08 
10,80,80,00725 

86739,87,81767 
B7,PF,09,B7, FF 
CC,B7, FF ,CE,B7 
FF ,03,39 
86,7E,87,01,67 
B7, FF ,09,87, FF 
007877 FF,CE 7B7 
FFr02,39 ' 




Aterrissagem Lunar Parte II 

CP 200 — 16 Kb RAM 


No último número, você iniciou sua completada com os seguintes dados: combustível. Todos os comandos ne- 

Aterrissagem Lunar. Agora, é só termi- AT 2,15; “ ■ Depois é só jogar, to- cessários são dados pelo seu computa 

nar de digitar a listagem em Basic, não mando sempre cuidado com as deslo- dor pessoal, 

esquecendo que a linha 120 precisa ser cações de sua nave para não perder o 


AT 2,15; 'W 

130 PRINT AT 2,ü;"VEL0C.= "ABS(A), 
140 IF H<0 OR A=0 THEN PRINT "DESC 
ENDQ" 

150 IF A>0 THEN PRINT "SUBINDO" 

160 FOR N=1 TO 16-B/100 
170 PRINT 
ISO NEXT N 

190 FOR N=1 TO 5+(RND*3>~(RNDx3) 
200 PRINT " 

210 NEXT N 
220 PRINT "<0>" 

230 FOR: N=16-INT (B/100) TO 16 
240 PRINT 


250 NEXT N 

260 PRINT "COMB.?" 

270 INPUT T 
280 LET C=C-T 
290 LET B=B+A-T-10 
300 LET A=A+T-10 
310 IF C<1 THEN G0T0400 
320 IF B< 50 THEN CLS 
.330 IF B< 50 THEN G0T0420 
340 IF B >19 THEIM G0T0100 
350 IF ABS (B)<20 AND ABS (A)<50 T 
HEN LET K=1 

360 IF K=1 THEN PRINT "ATERRISAGEM 
PERFEITA" 
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370 I* K=1 THEN STOP 
330 CLS 

390 IF C>1 THEN GOTO 420 
400 CLS 

410 PRINT AT 4,6;"RCRBOÜ-SE 0 COM 
BUSTIVEL" 

420 PRINT RT 7,6; "CHOCOU-SE COMTRR. 


R L UR R 11 ; 

430 PRINT RT 9,14;ABS 
440 STOP 

450 SRVE"RTERRISRGEM" 
460 CLS 


470 RUN 


<fl)5"KM/H" 


EDUCACIONAL 

Trinômio do 2.° Grau 


mm CP 200 — 16 Kb RA>m 

Este é mais um programa educacio- trinômio do 2? grau, bastando forne- vídeo, este programa é de fácil opera- 

nal, desenvolvido pelò departamento de cer os valores dos coeficientes. Devido ção, tornando-se um eficiente instru- 

software da CP Computadores Pes- às instruções e comandos necessários se- mento para a introdução à informática 

soais, para ajudá-lo na fatoração de um rem dados pelo computador, através do no setor educacional. 


10 ' **************************** 
20 '* TRINOMIO-SEGUNDO-GRRU * 

30 '* PR0L06ICR * 

40 '* CP-200 * 

50 '**************************** 

60 CLERR 
70 CLS 

80 PRINT RT 8,5;" FRTORRCAO DE TRI 
NOMIO " 

90 PRINT RT 10,14;" DO " 

100 PRINT RT 12,9;" SEGUNDO GRRU " 
110 PRINT RT 20,3;"DIGITE <C> P/ C 
ONTINUAR"; 

120 LET R*=INKEY* 

130 IF R$="" THEN GOTO 120 
140 CLS 

150 PRINT RT 3,2;"ENTRE COM OS VAL 
ORES PEDIDOS: " 

160 PRINT RT 5,4;"COEFICIENTE R= " 
170 INPUT R 
ISO PRINT RT 5,19;A 
190 PRINT RT 7,4;"COEFICIENTE B= " 
200 INPUT B 
210 PRINT RT 7,19;B 
220 PRINT RT 9,4;"COEFICIENTE C= " 
230 INPUT C 
240 PRINT RT 9,19;C 
250 IF R=0 OR B=0 OR C=0 THEN GOTO 
140 

260 PRINT RT 20,4;"RLGUMfl CORRECRO 
(S/N)? " 

270 INPUT D* 

230 IF D$="S" THEN GOTO 140 
290 LET DELTfl=(B*B)-(4*A*C) 

300 IF DELTR<0 THEN GOSUB 600 
310 IF DELTR<0 THEN GOTO 560 
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320 LET Xl=(-B-SQR (DELTA))/<2*R) 
330 LET X2=(-B+SQR <DELTA>>/<2*R) 
340 CLS 

350 PRINT RT 2,10;" TRINOMIO " 

360 PRINT RT 3,13;" DO " 

370 PRINT RT 4,8;" SEGUNDO GRRU " 
380 PRINT RT 7,8;" FORMULA GERAL " 
390 PRINT RT 9,9; "*************" 


400 PRINT RT 10,9;"* *" 
410 PRINT RT 11,9;"* 2 *' 
420 PRINT RT 12,9;"* RX+BX+C *" 
430 PRINT RT 13,9;"* *" 


440 PRINT RT 14,9;"*************" 
450 PRINT RT 16,4;" SOLUCRO DESTE 
EXERCÍCIO " 

460 PRINT RT 18,4;"2" 

470 IF B>0 RND OO THEN PRINT RT 1 
9,2;R;"X+";B;"X+";C 
480 IF B>0 RND C<0 THEN PRINT RT 1 
9,2;fl;"X+"; b;"X";C 

490 IF B<0 RND C>0 THEN PRINT RT 1 
9,2;R; "X" ;8;"X+";c 

500 IF B<0 RND C<0 THEN PRINT RT 1 

9,2;fl;"X";B;"X";c 

510 PRINT RT 19,14;"=" 

520 IF X1>=0 RND X2>=0 THEN GOSUB 
650 

530 IF Xi>=0 RND X2<0 THEN GOSUB 6 
70 

540 IF XI<0 RND X2>=0 THEN GOSUB 6 
90 

550 IF XI<0 RND X2<0 THEN GOSUB 71 
0 

Continua no próximo número 
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CP 400 E A INTERFACE 
DE COMUNICAÇÃO SERIAL 


A eficiência das possibilidades do CP 400 Color pode ser cada vez mais ex¬ 
plorada, na medida em que você for conhecendo a potencialidade do equipa¬ 
mento e a utilidade de seus acessórios. Estes conhecimentos são básicos para 
uma correta utilização e funcionabilidade do computador. Neste número, dicas 
sobre a interface de comunicação serial e o CP 400, fornecidas pelo departa¬ 
mento de Engenharia de Produto da CP Computadores Pessoais. 


{ 


f 




Chave 2 Chave 3 Chave 4 Baud Rate 


Chave 1 


POKE 150,x 


Assim, para configurar o CP 400 para receber/transmitir 
a 50 bps devemos dar as seguintes instruções: 


O CP 400 possui uma interface de comunicação serial, 
que é utilizada para ligar ao computador uma impresso¬ 
ra, um modem ou qualquer outro equipamento que utili¬ 
ze o padrão RS 232C de comunicação. 

Para trabalhar com esta interface, um dos dados mais 
importantes é a velocidade de comunicação de dados — 
conhecida como BAUD RATE. Para tanto, podemos con¬ 
figurar o CP 400 de acordo com a velocidade de transmis¬ 
são/recepção do periférico ou configurar o periférico com 
a velocidade do computador. 

No primeiro caso, utilizamos a seguinte tabela: 


MICROCHAVES 
DE CONTROLE 
DA VELOCIDADE 
DE TRANSMISSÃO/ 
RECEPÇÃO. 


INTERFACE 

SERIAL 


Atenção: Nas microchaves, o lado OPEN corresponde a 
OFF desta tabela. Estas chaves estão localizadas numa pla¬ 
ca adicional (que é a placa da interface de comunicação 
serial) montada sobre a placa principal, próxima ao local 
onde ficam as teclas de comando da P 500. 


Para configurar a 9600 bps, deve-se dar apenas a instrução: 


Observe que esta instrução não se apaga quando o micro 
é “resetado”, mas apenas quando o mesmo é desligado 
e ligado novamente. 

Quando o CP 400 é ligado, sua velocidade de transmis¬ 
são/recepção de dados está ajustada para 600 bps (ende¬ 
reço 150 contém o valor 87). Quando utilizamos a P 500 


para trabalhar com o CP 400, podemos configurar a ve¬ 
locidade de transmissão/recepção da P 500. Importante: 
observe que esta velocidade nada tem a ver com a veloci¬ 
dade de impressão de dados. 

Para tanto, utilizamos as microchaves existentes no in¬ 
terior da impressora. A tabela abaixo mostra a velocida¬ 
de para cada combinação de posições destas microchaves: 


POKE 149,4 : POKE 150,88 


POKE 150,1 
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SP 16, 

um profissional 
para profissionais 

O mercado brasileiro de informática 
especi ali.z a-se a ca da a no, formando 
uma geração de profissionais exigentes - 
em relação ao equipamento utilizado. 
^Paraatender a essa necessidade, a Pro- 
lógica investiu cerca de Cr$ 2 bilhões no 
desenvolvimento do Sistema Profissio¬ 
nal 1 é. ou símpfesmçn^ SP 16. 

presidente da empresa, “o SP 16 é uma 

res da linha Prológica, que permite 

•tivosexistentes-parao Sistema 700 e si¬ 
multaneamente usar os poderq^S^ro- 
■jEMb gramas que rodam em equipamentos de 
16 bits. Mais do que um equjpaniehto 
compatível com b 1BM/PC, ele é um 




cessidades do mercado brasileiro”. 


Executivos querem 
computador nas escolas 

A Associação Nacional dos Dirigentes e Executivos de Informática — Andei 
— entregou ao ministro da Educação, Marco Maciel, pedido de inclusão do 
ensino básico sobre informática nos currículos de primeiro e segundo graus e 
nos cursos superiores. 

A Andei justifica a proposta afirmando que “o Brasil precisa formar profis¬ 
sionais adequados ao desempenho de funções provocadoras de mudanças or¬ 
ganizacionais e se preparar para a informatização da sociedade, onde o 
computador já começa a fazer parte da vida cotidiana dos cidadãos” 

França entra no século XXI 

O governo francês pretende entrar no século XXI ainda este ano, colocando 
o país na “vanguarda da revolução da informática”, afirma o primeiro-ministro 
Laurent Fabius. Para conseguir tal revolução, a França está implantando um 
projeto que envolve todos os onze milhões de estudantes do país, do primário 
à Universidade, que a partir de setembro terão formação superior curricular 
em informática. Assim, nenhum aluno francês, de hoje até 1988, deverá sair 
da escola sem estar formado em computação. 







resistente que 


tres micropro- 
;s—Intel 8035 
:nte ao teclado 


Sistema 700 Mo- 
rojadas trazem a 


leaílzüu asTormas 


Andei oferece Bolsa d< 

Com o objetivo de defender os 
sionais da área de informática, a A 


iteresses profis- 
sociação Nacio- 
Informática — 
srviço para o se 


Gobato, a Bolsa de 
ande receptividade no 


SISTEMA 700 MODULAR, 
mais uma 

vantagem da Prológica 

Os empresários brasileiros contam 
agora com a terceira geração do Siste¬ 
ma 700 da Prológica: o Sistema 700 Mo¬ 
dular, que apresenta uma série de ino¬ 
vações tecnológicas para facilitar ain¬ 
da mais a operação. O novo equipamen¬ 
to de três módulos possui disco rígido 
Winchester incorporado, dez teclas de 
funções, teclado ergonométrico e capa- 
citivo (cinco vezes i 
os tradicionais), l.._ 
de RAM e 4 de EPROI^ 
cessadores, sendo um < 

— dedicado 
inteligente de 91 t, 

Além de todas as 
gicas, a Prológica 
bém com o design d 
dular. Suas linhas 
marca rr.zí —__ 
o mesmo artista 
do CP 400 e C~ 
tadores Pessoais: 


CP 200 dá aula em Recife 


Os alunos do primeiro grau da Escola São 
Francisco de Assis, em Recife, estão aprenden¬ 
do matemática e outras matérias, com a ajuda 
do CP 200. No início, o professor Guilherme Pe¬ 
reira teve que improvisar monitores usando ve¬ 
lhas TVs e elaborar programas simples para as 
aulas. Mas, após duas semanas de curso, os alunos já confessavam ao profes¬ 
sor que estavam gostando mais de estudar matérias, como matemática, pelo 
CP 200 e exigiram também programas para outras matérias, principalmente, 
geografia e português. 


t Em 

ii 

área de informática, a As 
nal dos Dirigentes e Executivos de 
Andei — está oferecendo um novo s 
tor: a Bolsa de Empreg 
Sob a direção cje Da 
Empregos-Andei tem obtido 51 aimt 

mercado, prestando seus serviços a todos os- 

sionais da área, mesmo àqueles que não têm ucunum 
vínculo com a entidade. Maiores informa¬ 
ções, à Rua Capitão Antonio Rosa, 376, conjunto 
102, São Paulo, ou pelo telefone (011) 280-0401. 
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CP 500, 
o novo programador 
musical do Pais 

O CP 500 se tornou o novo programador musical 
do País, através do Sistema de Programação Musi¬ 
cal Aleatória Coordenada (SPMAC), desenvolvido J 
pela Fênix Engenharia de Sistemas e Informática. 
Com esta inovadora aplicação, o CP 500 reduz de oi- j 
to horas para um minuto o trabalho na elaboração 
de um dia de programação. 

“O sistema define todos os parâmetros determi¬ 
nados pelo programador, desde os critérios para en- : 
trada de músicas até horários de comerciais, vinhe- : 
tás ou intervenções jornalísticas”, afirma Cláudio 
Buiton, da Fênix. 

A L & C de Comunicações — que coordena a pro¬ 
gramação de 116 emissoras espalhadas pelo País — jj 
utiliza-se do software da Fênix que, além do CP 500, 
desenvolveu também uma versão compatível com o 
Sistema 700 da Prológica. 


CLUBE DO SOFTWARE 

em São Paulo 

Foi criado, em São Paulo, o primeiro Clube do Soft¬ 
ware, com o objetivo de viabilizar o intercâmbio de pro¬ 
gramas e informações entre analistas eprogramadores. 
Em três meses de atividade, o clube já possui um acer¬ 
vo de 1200programas e a participação de, aproximada¬ 
mente, 100 analistas. 

A intenção de seus criadores, Nelson Peter Lajovic e 
Luiz dos Santos, proprietários da Pró-Eletrônica, é criar 
um espaço para a comunidade de profissionais e interes¬ 
sados em informática que necessite de soluções específi¬ 
cas, qualquer que seja o equipamento. Maiores informa¬ 
ções: Rua Santa Ifigênia, 568 — São Paulo — telefone: 
(011)221-9055. 

GERAÇÃO PROLÓGICA 



CONVERSOR SERIAL 
para o CP 400 Color 


A Micro Equipamentos 
desenvolveu mais dois aces¬ 
sórios para o CP 400 Color: 
o Conversor Serial Paralelo, 
que converte a saída serial 
do computador em saída pa¬ 
ralela, possibilitando o uso 
de qualquer impressora pa¬ 
drão Centronics (paralela) 
do mercado. Com este con¬ 
versor, o usuário tem a van¬ 
tagem de poder, através de 
uma chave de comutação do 
painel, ter acesso à saída se¬ 
rial do equipamento sem a 
desnecessária troca de cabos. 

O segundo produto da 
Micro Equipamentos é o Co¬ 
mutador de Saída Serial, que 
permite duplicar a saída se¬ 
rial do CP 400, para a utili¬ 
zação de dois periféricos se¬ 


riais. Estes dois novos pro¬ 
dutos já estão disponíveis no 
mercado, em todos os reven¬ 
dedores da CP Computado¬ 
res Pessoais. 


I ENCONTRO NACIONAL 
DE REPRESENTANTES 
CP COMPUTADORES PESSOAIS 



Dentro de sua política de for¬ 
necer suporte adequado aos 
usuários, a CP Computado¬ 
res Pessoais tem ampliado 
sua estrutura de representa¬ 
ção regional, visando a ho¬ 
mogeneização dos pontos de 
vendas no atendimento espe¬ 
cializado. 

Nesse sentido, foi realizado, 
em agosto, o I Encontro Na¬ 
cional de Representantes CP 
Computadores Pessoais. 
Além dos fatores técnicos e 


comerciais, os debates do en¬ 
contro se caracterizaram pe¬ 
la necessidade de se realizar 
um efetivo trabalho de aten¬ 
dimento aos clientes. 

Para Ney Carlos, gerente do 
Departamento de Software 
da CP, o objetivo da empre¬ 
sa não é só fabricar um equi¬ 
pamento poderoso, mas, 
principalmente, viabilizaras 
soluções que tais equipamen¬ 
tos podem possibilitar para 
qualquer atividade. 
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localização e edição 



O que acontece quando existe um 
erro no programa que você está 
rodando? Existem duas alternativas: 
na primeira, o computador mostra 
um lacônico “MN Erro na XXX”, 
onde MN é um mnemónico que 
indica o tipo de erro detectado e 
XXX, o número da linha onde ele 
ocorreu. A partir dessa informação, 
você digita um invariável LIST XXX 
ENTER, analisa a linha problemática 
e, quase sempre, parte para um EDIT 
XXX ENTER. A segunda alternativa é a 
localização e edição automáticas de 
erros, uma possibilidade conquistada pela 
publicação do livro “Indo Além com o CP400 
Color”, de Paulo Addair Daniel Filho; um dos 
recursos mais sérios no Brasil sobre a 
exploração de informações estratégicas para 
o CP 400 Color. Neste número, a Geração Prológica publica, com 
exclusividade, as explicações e rotinas para a localização e edição automáticas 


de erros. 


Localização e Edição 


É possível melhorar significativamente o funcionamen- 
to da rotina de tratamento de erros. Podemos acrescentar 
uma rotina em linguagem de máquina no CP 400 capaz, 
de, ao ocorrer um erro, acionar automaticamente a fun¬ 
ção de edição, posicionar o cursor sobre a parte da linha 
onde o erro foi detectado e permitir que você tenha ape¬ 
nas o trabalho de corrigi-lo. v 

O interpretador BASIC do CP 400 utiliza uma sub- 
rotina armazenada nas posições &H9F a &HAA que “pe¬ 
ga” os caracteres um por um dentro da linha de progra¬ 
ma. Quando o interpretador encontra um erro, o conteúdo 
de &HA6 e &HA7 aponta para o último caractere lido pe¬ 
lo interpretador. 

As linhas em BASIC são armazenadas num formato “re¬ 
missivo”, ou seja, as palavras-chave não são armazena¬ 
das por extenso, mas sim representadas por um código de 
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até dois bytes. Isso torna o programa mais compacto e, 
conseqüentemente, mais rápido. Por outro lado, fica di¬ 
fícil para o operador ler a linha diretamente da memória. 

Para que o operador possa identificar corretamente onde 
ocorreu o erro a identificação deste deve ser colocada den¬ 
tro da representação “legível” da linha, ou seja, a linha 
deve ser decifrada. Mas, existe uma rotina em &HB7CB 
que realiza essa função e coloca a linha decifrada na me¬ 
mória auxiliar (buffer) indicada pelo registrador Y. 

Agora precisamos definir os vários passos necessários 
para que as coisas saia como esperamos: em primeiro 
lugar, precisamos fazer com que a linha seja decifrada e 
que o cursor pare sobre o erro. Para isso, colocamos um 
zero na posição de erro. Isso faz com que a rotina de de- 
codificação acredite que aquele é-o final da linha. As li¬ 
nhas 00350 a 00450 salvam a posição do erro, recolocam 
o caractere original e continuam a decodificação. 

As linhas 00490 a 00580 imprimem o número da linha 
e o seu conteúdo, assim como EDIT o faria, e então acio¬ 
nam a edição, via rotina &H855C. 

GERAÇÃO PROLÓGICA 
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automáticas de erros 

CP 400 COLOR 


Nosso único problema agora é como fazer com que o 
interpretador BASIC realize tudo isso automaticamente, 
logo após ter sido detectado um erro. O interpretador passa 
pelas posições &H15E a &H1A8 várias vezes em diversas 
situações. A rotina do interpretador que coloca um carac¬ 
tere na tela (CHROUT — $A282) é importante, pois a no¬ 
va instrução EDIT deve ser acionada após ter sido impresso 
“Erro na”. 

Este desvio pode ser usado para verificar qual instru¬ 
ção está sendo colocada na tela. A mensagem “Erro na” 
fica armazenada nas posições SABEI a SABEB da ROM. 
A rotina CHROUT espera por esse endereço no registra¬ 
dor X. 

Existe um problema nesse método: “Erro” e “na” são 
consideradas mensagens separadas na memória do com¬ 
putador. Por isso, verificamos apenas se a mensagem “na” 
foi impressa. No entanto, a mensagem “Break na” tam¬ 
bém utiliza o endereço que checamos no nosso método. 
Isso vai fazer com que a edição seja acionada também 
quando houver um STOP ou o acionamento da tecla 
BREAK, e a linha editada será a última que foi executada. 

A rotina CHROUT é checada sempre antes de comple¬ 
tar a saída na tela. Mudando-se o endereço de retorno usa¬ 
do no final desta rotina, a nova rotina de erro não será 
acionada até que CHROUT termine. Este endereço é ar¬ 
mazenado no indicador de pilha pelo registrador S. Já que 
na tabela de desvio os endereços estão no terceiro nível e 
cada nível ocupa dois bytes, devemos inserir o endereço 
da nova rotina de erro a partir do sexto byte; assim o re¬ 
gistrador S vai operar apropriadamente. 

A sub-rotina nas linhas 060 a 160 insere o novo desvio 
na tabela. Esta rotina permite que um desvio que já esteja 
na posição $167 da tabela seja executado imediatamente 
após a rotina de manipúlação de erro. Este método é mais 
complicado, porém mantém a compatibilidade com ou¬ 
tras rotinas que também utilizam esse desvio. 

A sub-rotina em linguagem de máquina até pode traba¬ 
lhar com micros que não disponham de Extended BASIC 
(que é o COLOR BASIC do CP 400), mas aí não daria 
para usar o programa em BASIC que listamos aqui, pois 
ele depende de algumas instruções que só o Extended 
possui. 

O programa em BASIC é que vai carregar a sub-rotina 
em linguagem de máquina sem a necessidade de um EDI- 
TOR/ASSEMBLER. As linhas 20 e 25 verificam quanta 
memória dispõe seu sistema e automaticamente limpam pe¬ 
lo menos 1K para a rotina em LM (Linguagem de 
Máquina). 
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Esperamos que esse pequeno utilitário lhe facilite a vi¬ 
da na operação daqueles programas “temperamentais” 
que relutam em funcionar. 
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Programa em BASIC 


10 IF PEEK(&H80C0)-18THENGOTO20 

20 PRINT"0 PROGRAMA NAO OPERA SE 

M EXTENDED BASIC":END 

30 CLEAR200,PEEK(&H74)*256 

40 X=PEEK(&H74)*25ó 

50 F0RY=X TO X+133 

60 READ Z*: Z=VAL<"&H"+Z$) 

70 POKE Y, Z 
80 C=C+Z 
90 NEXTY 

100 IF CO 15312 THEN PRINT"ERRQ 
NOS DADOS"s END 
110 EXECX 

120 PRINT"PROGRAMA CARREGADO SEM 
PROBLEMAS" 

130 PRINT"ENDEREC0s"HEX$<X)" TO 
"HEX$(X+133) 

140 DATA 8E,01,67,Aó,80,A7r8D, 
00,20,10,AE,84,10,AF,8D,00,19 
150 DATA 31,80,00708,10,AF,84, 
86,7E,A7,lFr39,8C,AB,EA,2ó,07 
160 DATA 31,8D,00,06,10,AF,66, 
39 7 39 7 39,BD 7 B9 ,58,DC,68,DD,2B 7 
BD 7 BD 7 CC 

170 DATA BD,B9,AC,BD,AD,01,25, 
47,10,8E,02,DD,A6,9F,©0,A6,34,02 
180 DATA 6F,9F,00,A6,30,04,BD, 
B7,CB735,027A779F,00,A6,307lF734 


190 DATA BD,B7,CB,IF,20,83,02,DE 
,DD,D7,8E,02,DD,BD,85,B4,BD,B9, 
58 

200 DATA BD,BD,CA,BD,89,AC,8E,02 
,DD,35,06,83,02,DD,BD,85,B6,BD, 
85,5C,7E,AC,73,7E,AE,D2 











Rotina em linguagem de máquina 





00010 

X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 



00028 

X 

RUTG EDIT- 




00030 

x PRUL0 

RDDRIR — JRN/ 

85 



00040 

X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

7F00 


00050 

0RG 

$7F00 




80060 

xxxxx RERJUSTR DESVIO RNTES DR SRIDR DE CRRRCTERE ($R282 

7F00 

8E01Ó7 

00070 

LDX 

#$167 

POSICRO PRRR VINDR DE CHROUT 

7F03 

R680 

00080 

LDR 

rX + 

PE GR RETORNO DE DESVIO RTURL 

7F05 

A78D0020 

08090 

STR 

DESVIO,PCR 

E 0 COLOCR NO FIM 

7F09 

10RE84 

80100 

LDY 

,X 

DR NOVR ROTINR 

7F0C 

10RF8D0019 

00110 

STY ' 

1+DESVIO r PCR 

PE GR ENDEREÇO DO NOVO DESVIO 

7F11 

318D0003 

00120 

LERY 

VEERRO,PCR 

E 0 COLOCR NR TRBELR DESVIO 

7F15 

10RF84 

00130 

STY 

,X 


7F18 

867E 

00140 

LDR 

#$7E 

DESVIO NO 6809E. 

7F1R 

R71F 

00150 

STR 

~1,X 

RRMRZENR-0 NR TRBELR. 

7F1C 

39 

00160 

RTS 





00170 

xxxxx VERIFICR SE "ERRO NR 

" FOI IMPRESSO xxx 

7F1D 

8CRBER 

00180 

VEERRO CMPX 

#$RBER 

IMPRIMINDO "ERRO NR"? 

7F20 

2607 

00198 

BNE 

DESVIO 

NRO- FRCR 0 DESVIO NORMRL. 

7F22 

318D0006 

00200 

LERY 

ERRO,PCR 

PEGR ENDEREÇO DO NOVO DESVIO 

7F26 

10RF66 

00210 

STY 

6 , S 

RRMRZENR COMO ULTIMO RETORNO. 

7F29 

39 

00220 

DESVIO RTS 


SRLVR 3 BYTES 

7F2R 

39 

00230 

RTS 



7F2B 

39 

00240 

RTS 





00250 

X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 



00260 

X NQVR ROTINR DE MRNIPULRCRO DE ERRO x 



00270 

X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

7F2C 

BDB958 

00280 

ERRO JSR 

$B958 

RPRGR 0 FINRL LINHR NR TELR 

7F2F 

DC68 

00290 

LDD 

$68 

PEGR NUMERO RTURL DR LINHR 

7F31 

DD2B 

00300 

STD 

$2B 

E 0 RRMRZENR 

7F33 

BDBDCC 

00310 

JSR 

$BDCC 

IMPRIME NUMERO DR LINHR RTURL 

7F36 

BDB9RC 

00320 

JSR 

$B9RC 

IMPRIME ESPRCO 

7F39 

BDRD01 

00330 

JSR 

$RD01 

POE POSICRO DO NUMERO DE LINHR 

7F3C 

2547 

00340 

BCS 

FIMERR 

ERRO SE NRO FOR NUMERO CORRETO 

7F3E 

108E02DD 

00358 

LDY 

#$2DD 

POSICRO DO BUFFER DO TECLRDO 

7F42 

R69F00RÓ 

00360 

LDR 

t$R6Il 

POSICRO DO ERRO NR LINHR BRSIC 

7F46 

3402 

00370 

PSHS 

R 

SRLVR RQUELE CRRRCTERE 

7F48 

ÓF9F00R6 

00380 

CLR 

II$R63 

IGURLR R ZERO P/ FIM DE LINHR 

7F4C 

3004 

00390 

LERX 

4 , X 

PEGR COMECO DR LINHR BASIC 

7F4E 

BDB7CB 

00480 

JSR 

$B7CB 

REPOE O v CRRRCTERE DE ERRO 

7F51 

3502 

00410 

PULS 

fl 

PEGR 0 CRRRCTERE DE ERRO 

7F53 

R79F00R6 

00420 

STR 

C$R63 

0 0 COLOCR DE NOVO NR LINHR 

7F57 

301F 

00430 

LERX 

~1,X 

RERJUSTR P/ DECIFRRR R LINHR 

7F59 

3420 

00440 

PSHS 

Y 

SRLVR POSICRO ERRO NO BUFFER 

7F5B 

BDB7CB 

00450 

JSR 

$B7CB 

DECIFRR 0 RESTO DR LINHR 

7F5E 

1F20 

00460 

TFR 

Y, D 

POE FINRL DO BUFFER EM D 

7F60 

8302DE 

00470 

SUBD 

#$2DE 

PEGR COMPRIMENTO DO BUFFE 

7F63 

DDD7 

00480 

STD 

$D7 

SRLVR PRRR R ROTINR DE EDICRO 

7F65 

8E02DD 

00490 

LDX 

#$2DD 

INICIO DO BUFFER 

7F68 

BD85B4 

00500 

JSR 

$85B4 

IMPRIME BUFFER 

7F6B 

BDB958 

00510 

JSR 

$B958 

RPRGR 0 FINRL DR LINHR 

7F6E 

BDBDCR 

00520 

JSR 

$BDCfl 

IMPRIME 0 NUMERO DE LINHR 

7F71 

BDB9RC 

00530 

JSR 

$B9RC 

IMPRIME ESPRCO 

7F74 

8E02DD 

00540 

LDX 

#$2DD 

POSICRO DO BUFFER 

7F77 

3506 

00550 

PULS 

D 

PEGR POSICRO DO ERRO NO BUFFER 

7F79 

8302DD 

00560 

SUBD 

#$2DD 

DISTRNCIA DO INICIO DO BUFFER 

7F7C 

BD85B6 

00570 

JSR 

$85B6 

IMPRIME BUFFER RTE' 0 ERRO 

7F7F 

BD855C 

00580 

JSR 

$8550 

CHRMR ROTINR DE EDICRO 

7F82 

7ERC73 

00590 

JMP 

$RC73 

VRI PRRR LOOP DE COMRNDO BASIC 

7F85 

7ERED2 

00600 

FIMERR JMP 

$RED2 

CHRMR ERRO UL 


0000 N 

00610 

END 







REPORTAGEM 
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IMAGEM 


A potencialidade e a efi¬ 
ciência do CP 500, em qual¬ 
quer uma de suas versões, são 
instrumentos poderosos para 
qualquer atividade profissio¬ 
nal. Um exemplo desta capa- 
cidade é o trabalho desenvol-|| 
vido por Theodore Papageor- ^ 
giou, que criou a Electro-Arts 5 
Som e Imagem — uma empre- “ 
sa especializada em efeitos es- o| 
peciais de som, iluminação e 
projeção — com a ajuda com¬ 
putadorizada de um CP 500 e 
uma impressora P 500. 

Segundo Theodore, “a Elec¬ 
tro-Arts nasceu a partir da 
idéia de que se pode produzir, 
atualmente, no Brasil, efeitos 

especiais de som, iluminação e projeção como mesmo po¬ 
tencial técnico e criativo dos efeitos oferecidos no merca¬ 
do internacional. Com a utilização do CP 500 e Interfa¬ 
ces Inteligentes, desenvolvidas pela própria Electro-Arts, 
atingimos nosso objetivo, e o importante é que o realiza¬ 
mos a um custo acessível”. 

Hoje, através da computação, a Electro-Arts cria dese¬ 
nhos animados, filmes e vídeos publicitários com a truha 
sonora perfeitamente sincronizada, independentemente dos 
requisitos de edição de imagem e da composição musical. 

Através da computação, a empresa está apta a prestar 
os seguintes serviços: montagem de audiovisuais, para to¬ 
das as funções, e com qualquer número de projetores de 
slides; consultoria para sincronismo e montagem de trilhas 
sonoras para filmes e vídeo-teipes; sincronismo de painéis 
luminosos e sistema de programação de audiovisual. 

CP 500: imagem e som em alta velocidade 

Para os audiovisuais, a Electro-Arts realiza o sincro¬ 
nismo dos projetores de slides com a trilha sonora através 
do CP 500, que pode acionar um número indeterminado 
de projetores de slides, podendo gerar audiovisuais de uma 
ou várias telas. Este sistema desenvolvido por Theodore 
permite mudança de imagem em alta velocidade, com con¬ 
trole de intensidade de luz e tempo de fusão. 

Segundo Theodore, “o ciclo de um projetor de slides 
é de, aproximadamente, um segundo. Com o CP 500 
posso utilizar oito projetores por tela, ou seja, uma mu¬ 
dança de oito imagens por segundo, produzindo efeitos 
de animação”. 



Na Electro-Arts, o CP 500 
foi transformado em um 
especialista em efeitos especiais 
de som, iluminação e projeção. 


“Para este sistema” — 
continua — “desenvolvemos 
softwares e interfaces inteli¬ 
gentes, o que possibilita o 
acesso direto ao sistema ope¬ 
racional. Dessa forma, pode¬ 
mos criar sincronismos e efei¬ 
tos especiais para qualquer ti¬ 
po de exigência estética”. 

Outra atividade da empre¬ 
sa, através do CP 500, é a 
consultoria para sincronismo 
e montagem de trilhas sono¬ 
ras. Também nesse caso a 
Electro-Arts desenvolveu soft¬ 
ware e interfaces que podem 
acionar, através do computa¬ 
dor, sinais de controle para 
sintetizadores de som. 

As interfaces são basicamente de quatro tipos: Sistema 
Key/Time, para acionar sintetizadores tipo Prophet 5; Sis¬ 
tema Midi, para acionar sintetizadores avançados; Siste¬ 
ma CV, GATE, para acionar sintetizadores analógicos e 
módulos de voz desenvolvidos pela própria Electro-Arts; 
e RS 232C e Interfaces Híbridas, para acionar máquinas 
de ritmo e sintetizadores não compatíveis com outros 
sistemas. 

Sincronismo e Software 

Para o trabalho de sincronismo de painéis, a Electro- 
Arts desenvolveu um software especializado para aciona¬ 
mento de lâmpadas incandescentes para qualquer tipo de 
função, através do CP 500, seja iluminação de peças de 
teatro e shows musicais, seja para painéis demonstrativos 
de processos de produção, letreiros e similares, que têm 
grande aplicação em feiras e outdoors . 

Mas a Electro-Arts não se contenta em desenvolver soft¬ 
wares específicos e Interfaces Inteligentes para sistemas de 
som, imagem e projeção. Ela utiliza o CP 500 e a impres¬ 
sora P 500 para todas as atividades administrativas neces¬ 
sárias a uma empresa: papel-carta e envelopes personali¬ 
zados, impressão de cartas, controle de produção, além 
da inevitável mala-direta. 

Para Theodore Papageorgiou, as funções que o CP 500 
pode exercer são inúmeras. “O problema” — explica — 
“é que ho Brasil ainda não existe uma cultura informatiza¬ 
da, que possibilite aos usuários conhecer a potencialidade 
de seu equipamento e, assim, poder transformá-lo num efe¬ 
tivo instrumento de trabalho e desenvolvimento”. 
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Cobol com Estilo, de Louis J. 
Chmura e Henry F. Ledgard, 
151 páginas, Editora Campus. 

Espirituoso e bem-humo¬ 
rado, repleto de dicas, conse¬ 
lhos e pequenos truques; es¬ 
te livro aborda com simpatia 
os problemas e dificuldades 
do programador em Cobol, 
levando-o a desenvolver no¬ 
vas habilidades no que se re¬ 
fere ao estilo e à precisão. 




Jogos em Linguagem de Má¬ 
quina, volume 3, seleção da 
Pierluigi Piazzi, 137 páginas, 
Aleph Publicações e Editora 
Moderna. 

Apesar do título, este vo¬ 
lume não exige por parte do 
leitor conhecimentos de lin¬ 
guagem de máquina: todos os 
jogos são listados de manei¬ 
ra a poderem ser facilmente 
introduzidos no micro por in¬ 
termédio de um programa au¬ 
xiliar (monitor). Todos os jo¬ 
gos são precedidos por uma 
explicação, tanto do funcio¬ 
namento quanto do cenário. 
Obra dirigida para os usuários 
de microcomputadores com¬ 
patíveis com o CP 200. 



Cobol: Regras para Progra¬ 
madores, de George Ledin 
Jr., Michael Kudlick e Victor 
Ledin, 228 páginas, Editora 
Campus. 


Este livro reúne a experiên¬ 
cia de inúmeros profissio¬ 
nais, apresentando-a sob a 
forma de regras simples, do 
tipo “Faça/Não Faça’’, sem¬ 
pre enunciadas nas páginas 
da esquerda e acompanha¬ 
das, à direita, de explicações 
e exemplos que facilitam sua 
compreensão. Porém, mais 
do que isso, o texto se propõe 
a ajudá-lo a: solucionar os 
problemas dos usuários, tor¬ 
nar seus programas fáceis de 
usar, melhorar seu estilo na 
programaçãoe produzir pro¬ 
gramas bem documentados. 


Basic com Estilo — Provér¬ 
bios de Programação, de 
Paul Nagin e Henry F. Led¬ 
gard, 144 páginas, Editora 
Campus. 

“Os programadores po¬ 
dem e devem escrever progra¬ 
mas que funcionem perfeita¬ 
mente logo de início. ,, É pro¬ 
vável que esta afirmação pa¬ 
reça muito otimista aos pro¬ 
fissionais acostumados a lon¬ 
gas horas de depuração. No 
entanto, esta é, justamente, a 
proposta deste livro, destina¬ 
do a programadores de Basic 



que desejem produzir progra¬ 
mas legíveis, cuidadosamen¬ 
te construídos. 



Planejamento de Capacidade 
de Sistemas de Computação, 

de Daniel A. Menascé e Vir¬ 
gílio A. F. Almeida, 83 pági¬ 
nas, Editora Campus. 

A informática está pene¬ 


trando cada vez mais em di¬ 
versos setores de nossa socie¬ 
dade. Assim sendo, torna-se 
cada vez mais importante que 
as instalações de Processa¬ 
mento de Dados tenham a 
sua capacidade adequada¬ 
mente dimensionada de for¬ 
ma a poder processar as di¬ 
versas cargas de trabalho, a 
fim de não incorrer em ônus 
financeiros desnecessários. 
Por isto, este livro apresenta 
a Análise Operacional — fer¬ 
ramenta que permite cons¬ 
truir modelos analíticos para 
previsão de desempenho de 
um sistema de computação. 



Bancos de Dados: Funda¬ 
mentos, de C. J. Date, 214 
páginas, Editora Campus. 

Se você nem sabe como 
funcionam os computadores, 
mas precisa usar ou conhecer 
um sistema de banco de da¬ 
dos, então, este livro é para 
você. Não importa o tipo de 
equipamento que você opera 
ou possui ou o grau de conhe¬ 
cimento sobre informática: 
Banco de Dados vai mostrar- 
lhe o que os atuais sistemas 
podem fazer por você e como 
melhor utilizá-los. O texto in¬ 
clui ainda uma visão geral dos 
bancos de dados, exemplos 
práticos e exercícios. 



Fortran para Micros, de 

Garry Marshall, 86 páginas, 
Editora Campus. 

Este livro é para os leitores 
que já conhecem o Basic, pois 
adota uma abordagem infor¬ 
mal que, fornecendo as infor¬ 
mações mínimas necessárias, 
possibilita ao leitor traçar um 
paralelo entre as duas lingua¬ 
gens, tornando-o rapidamen¬ 
te capaz de escrever progra¬ 
mas também em Fortran. 
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O professor ideal 
para os iniciantes 
no mundo da ~ 
informática. 


O CP 200 S é o parceiro 
ideal dos iniciantes. 
Com ele você 
desenvolve as primeiras 
lições em computação. 
Qualquer criança pode utilizá 
lo para resolver tarefas 
escolares ou simplesmente 


curtir os mais divertidos jogos 
de vídeo-game. 
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CP500/M, a grande solução. 

Garantia da maior biblioteca 
de programas aplicativos. 


O CP 500/M 80 agora também é compatí¬ 
vel com CP/M, o Sistema Operacional 
mais difundido no mundo. Isso significa 
que, somartdo o tradicional DOS 500 
com o CP/M, você passa a dispor da maior 
biblioteca de programas aplicativos do 
mercado. Trata-se da solução inteligente 
e racional para o seu dia-a-dia, permitindo 
a você tirar vantagem de programas como 


CalcStar*, dBase II*, Wordstar* e muitos 
outros, que vão agilizar tanto a sua vida 
quanto a da sua empresa: Folha de 
Pagamento, Controle dè Estoque, Contas a 
Pagar/Receber, Administração Hospitalar, 
Cálculo Estrutural, Sistema de Balancea¬ 
mento de Rações e outros programas especí¬ 
ficos para o seu ramo de atividade. 

O CP 500/M 80 possui saída paralela para 


impressora, e você pode instalar facilmente 
uma porta RS232-C, que o coloca em 
contato com a Rede Internacional de 
Telemática, além do Videotexto, Cirandâo, 
Aruanda etc. Conheça no seu revendedor 
mais próximo o CP 500/M 80 . 

Um grande passo na informática, com a 
qualidade CP e a Tecnologia Prológica. 


Características 

Sistema Operacional 

Vídeo 12” fósforo verde com controle de 
intensidade 


SO-08 

DOS 500 

Teclado profissional capacitivo com numérico 
reduzido 

Interface para impressora paralela 

Interface serial padrão RS232-C (opcional) 
Freqüência de Operação: 2 Mhz 

Unidade de som com controle de volume 

Opera com 1 ou 2 drives de face simples ou dupla 

Memória RAM 

Memória ROM 
Compatibilidade 

Vídeo 

64 Kbytes 

2 Kbytes 
CP/M* 

80 colunas por 

24 linhas 

48 Kbytes 

16 Kbytes 
TRS-DOS 

64 ou 32 colunas 
por 16 linhas 
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* Marcas Registradas 























































































